Problem mit Abfrage zum beenden ohne speichern

[5etH]

also das ganze wurde jetzt etwas umstrukturiert also im programmbeendenclick1 steht jetzt

Delphi-Quellcode:

procedure Tmain.ProgrammBeenden1Click(Sender: TObject);
begin
close;
end;

und in on close steht

Delphi-Quellcode:

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      if not (gespeichert) then
      begin
      if  (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
          ,mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes) then
          //gespeichert := true;
          self.close;
          end;
  if (Gespeichert) then
  begin
   self.close;
  end;
end;

und er bleibt am oben markiertem trotzdem hängen