Hola sac.
Antes de cada llamada al método
Execute (y de fijar la propiedad
InitialDir), inicializa la propiedad
FileName a cadena vacía.
Ejemplo:
Código Delphi
[-]
OpenDialog1.FileName:= '';
OpenDialog1.InitialDir:= 'C:\DIRECTORIO\...';
OpenDialog1.Execute;
Saludos.