"Delphi"-Exceptions verhindern

[DelphiUser7]

Hi,
entschuldigung, dass ich nochmal poste, aber da ist noch ein Problem aufgetaucht: Die Sache mit der vom Programm erstellten Exception hab ich mittlerweile in den Griff bekommen , aber was kommt danach ; ich meine, der Anwender muss ja früher oder später auch mal eine Datei öffnen können, nachdem er einen Dateinamen falsch eingegeben hat; das heißt also im Klartext Ich möchte wissen, wie man den ÖffnenDialog noch 'am Leben erhalten' kann, bis der Benutzer entweder auf 'Abbrechen' klickt, oder eine Datei öffnet;
Hoffe, ihr versteht mein Problem;
Mein Quelltext sieht momentan folgendermaßen aus:

Delphi-Quellcode:

try
    mediaplayer1.Open;
  except
    HandleMCIDeviceError;
   try
    fileLoad1.Execute;
   except
    on E: EMCIDeviceError do HandleMCIDeviceError2;
   end;
  end;

Jetzt die beiden Fehlerbehandlungsroutinen:

Delphi-Quellcode:

procedure TForm1.HandleMCIDeviceError;
begin
 ShowMessage('Datei kann nicht geöffnet werden!'+#13+'Player wurde nicht geöffnet!');
 Form1.MediaPlayer1.Close;
end;

procedure TForm1.HandleMCIDeviceError2;
begin
 ShowMessage('Es wurde keine Datei geladen!');
end;