Delphi-Quellcode:
OpenDialog1.FileName := '';
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0));
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
So scheint es zu funktionieren... Nicht nur den Ordener setzen, sondern auch den letzten Filename, da der Dialog scheinbar dem Pfad dort den Vorrang gibt.
Gruß
Wormid