[shoulder]

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;    // Open dialog variable
fijarse : string;
begin
openDialog6 := TOpenDialog.Create(self);
opendialog6.InitialDir:= 'C:\carga\';
openDialog6.Filter := 'Pdf files (*.pdf)|*.PDF'; ; ;
// Only allow existing files to be selected
openDialog6.Options := [ofFileMustExist];
// Allow only .dpr and .pas files to be selected

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;