Problem mit Abfrage zum beenden ohne speichern

[5etH]

ich habe das nun so gelöst

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) = mrNo) then
          action :=  caNone;
          end;
          //gespeichert := true;
     end;