MessageDlg - Rückgabewert überprüfung läuft schief ;(

[f4k3]

Habe im OnClose-Event eine Abfrage über einen MessageDlg ... der Abfragen soll ob das Programm beendet werden soll oder nicht.
Wenn "ja" gedrückt wurde, soll das Programm beendet werden ...
Wenn "nein" gedrückt wurde, soll nichts geschehen ...

Ich mach das ganze über die Close-Actions ... mein Code sieht folgendermaßen aus

Delphi-Quellcode:

procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  { Sicherheitsabfrage ob Programm beendet werden soll }
  if MessageDlg('Programm beenden?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    caFree;
  end
  else
  begin
    caNone;
  end;     
end;

und so ruf ich dass ganze auf ...

Delphi-Quellcode:

procedure TfMain.btnCloseClick(Sender: TObject);
begin
  { Programm schliessen }
  fMain.Close;
end;

Nun ... egal was "drücke" ... das Programm wird immer beendet ... das ganze ist insofern merkwürdig ...
dass ich diese Code-Zeile bestimmt schon 100x in anderen Programmen ausgeführt habe ... und da hats korrekt funktioniert

Oder bin ich einfach zu doof und hab was übersehen?!

Danke für eure Hilfe

Euer f4k3