Gracias ahi lo solucione, mi error era si escribo c:\carga en initialDir (no funciona) si escribo c:\carga\ funciona, e hice una pequeña rutina para que siempre controle si esta en el Dir. correcto.
Les dejo como me quedo:
Código Delphi
[-]
var
openDialog6 : TOpenDialog; fijarse : string;
begin
openDialog6 := TOpenDialog.Create(self);
opendialog6.InitialDir:= 'C:\carga\';
openDialog6.Filter := 'Pdf files (*.pdf)|*.PDF'; ; ;
openDialog6.Options := [ofFileMustExist];
with OpenDialog6 do
if Execute then
begin
fijarse := ExtractFileDir(OpenDialog6.FileName);
if fijarse <> 'C:\carga' then
begin
showmessage('Los archivos deben grabarse y buscarse dentro de c:\carga');
edit17.Clear;
end
else
edit17.Text := ExtractFileName(OpenDialog6.FileName);
end;