Dialog verschwindet in den Hintergrund

[Bulvaye]

Ich habe folgendes Problem:

Wenn ich z.B. die folgende Anwendung schreibe (ohne Forms), in der nur ein Open-Dialog und anschließend ein Message-Dialog aufgerufen wird, verschwindet Letzterer automatisch in den Hintergrund (also hinter jedes geöffnete Explorer-Fenster, etc.).

Code:

program Project1;

uses Dialogs;

begin
  with TOpenDialog.Create(nil) do 
    try 
      Execute 
    finally 
      Free
    end;
  MessageDlg('Fertig!', mtInformation, [mbOK], 0);
end.

Wie kann ich nun trotzdem dafür sorgen, dass die Anwendung weiterhin den Focus besitzt bzw. im Vordergrund bleibt, bzw. was mache ich falsch? Ich wäre für jeden Tipp dankbar!