Perdon lo habia copiado rapido como dije antes, funciona pero si cambio directorio dentro del opendialog, hago click sobre un archivo PDF y vuelvo a entrar me queda como predefinido el nuevo directorio.
Código Delphi
[-]
OpenDialog1.FileName:= '';
opendialog1.InitialDir := 'c:\carga';
if not OpenDialog1.Execute then Exit;
edit17.Text := ExtractFileName(OpenDialog1.FileName);