Problem mit Abfrage zum beenden ohne speichern

[5etH]

Hallo zusammen,

ich habe momentan das Problem das ich mit einer Boolschen Variable überprüfe ob in feldern etwas verändert wurde (gespeichert), und dann mit einem msg Dialog abgefragt wird ob man ohne speichern beenden will, leider schiebt er mich dann in eine Endlosschleife, wenn ich auf "Ja" klicke und erst, wenn ich auf "Nein" klicke, nachdem ich mindestens einmal auf "Ja" geklickt habe, schließt er das Programm.
Ich bin langsam am verzweifeln da ich nicht herrausfinden kann woran es liegt.

Hier einmal der entsprechende Code

Delphi-Quellcode:

procedure Tmain.ProgrammBeenden1Click(Sender: TObject);
begin
      if not (gespeichert) then
      begin
        if  (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
          ,mtWarning, mbYesNo, 0) = mrYes) then
          begin
              //gespeichert := true;
              main.close;
          end;
      end else
        begin
          main.close;
        end;
end;

schon einmal vielen Dank für eure hilfe.
Mit freundlichen Grüßen
Manuel