OnCloseQuery :: Programm schließt nicht richtig

[flomei]

Hallo!
Ich habe folgende OnCloseQuery Prozedur geschrieben:

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  begin
    if
      MessageDlg('Das Programm wird nun beendet!' +#10#13 +'Einstellungen werden gespeichert.' +#10#13
      +'Fortfahren?', mtInformation,
      [mbYes, mbNo],0)=mrYes
    then
      begin
        CanClose := true;
        Close
      end
    else
      CanClose := false;
  end;

Nur leider funktioniert es nicht wie gewünscht. Klicke ich auf Yes dann beendet sich das Programm nicht, der Dialog bleibt auch da.
Klicke ich zunächst auf No verschwindet der Dialog wieder wie gewünscht und man kann weitermachen. Klicke ich aber einmal auf Yes und dann auf No beendet sich das Programm. Woran kann das liegen?

Thx for help! :)

MfG Florian :hi:

[neolithos]

Nimm mal das Close heraus
das ist vööllig fehl am platz

[Tpercon]

Delphi-Quellcode:

        CanClose := true;
        Close <- daran!!

Nimm das Close mal raus!

[neolithos]

Delphi-Quellcode:

CanClose := 
  MessageDlg(
    'Das Programm wird nun beendet!'#13 +
    'Einstellungen werden gespeichert.'#13 +
    'Fortfahren?', mtInformation, [mbYes, mbNo],0) = mrYes;

So würde ich das übrigens schreiben...

[flomei]

Ach ja... :wall: Das wird ja so oder so geschlossen! :wall:

@neolithos: Hab ich geändert. Ist doch ein ganzes Stück übersichtlicher.

Nochmal Danke für eure Hilfe!

MfG Florian :hi: