ungewollte Folge(OpenDialog)

[Moin]

Hi alle zusammen,
Ich will eine Öffnen-Procedure haben, die eine Fehlermeldung beim öffnen einer nicht existierenden Datei ausgibt und dann in den OpenDialog zurückkehrt. Dass funktioniert auch soweit, DOCH wenn man im OpenDialog auf ABBRECHEN geht kommt die Fehlermeldung auch! Ich habe keine Idee, wie ich dass umgehe. Ihr vielleicht??

Delphi-Quellcode:

Procedure TEditor.OEFFNEN;
BEGIN
    OpenDialog.DefaultExt:= 'rtf';
    Repeat

     IF OpenDialog.Execute
     Then
           If (OpenDialog.FileName<>'') and FileExists(OpenDialog.FileName)
           Then begin 
                Neu(OpenDialog.FileName); {Neu: Procedure zum erstellen von einem MDIChild}
                exit; end
     Else Exit;

   Until(MessageDlg('Datei existiert nicht! Andere auswählen?',mtError, [mbYes, mbNo],0)= mrNo)  ;
END;

Danke im Vorraus!!