openpicturedialog .. kleines Problemchen

[Memo]

Das einzigste was bei meinen Versuchen geklappt hat, war

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
   try
     open := TOpenPictureDialog.Create(self);
     open.InitialDir := ExtractFilePath(Application.ExeName);
    IF open.Execute THEN
       image1.picture.loadfromfile(open.filename);
   finally
    open.Free;
   end;
end;

warum das InitialDir beim 2.Versuch ohne Wirkung ist, ist mir auch schleierhaft. Auch noChangeDir war wirkungslos.

//Edit Code noch geändert