Problem mit Abfrage zum beenden ohne speichern

[5etH]

also im debugger bleibt er in der Makierten Zeile stehen.

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; 
              self.close; // Bleibt hier hängen <---- 
          end; 
      end else 
        begin 
          self.close; 
        end; 
end;