Dateidialog Fensterposition

[engel]

Die Dateidialoge erscheinen nach .execute immer zentriert, d.h. immer an derselben Stelle - und außerdem ziemlich klein.
Da dacht' ich mir sie zu positionieren, nachdem ich nach OnShow des Dialogs SetWindowPos benutze, etwa so:

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.OnShow:=DialogShow;
 OpenDialog1.Options:=[ofShareAware,ofEnableSizing,ofHideReadOnly];
 if OpenDialog1.Execute then showmessage(OpenDialog1.FileName);
end;

procedure TForm1.DialogShow(Sender: TObject);
begin
 SetWindowPos(OpenDialog1.Handle,HWND_NOTOPMOST,10,10,200,200,SWP_SHOWWINDOW);
end;

Also so geht's jedenfalls nicht - das Fenster ist an der gleichen Position wie immer. Wie geht's richtig?

Matthias