Problem mit Abfrage zum beenden ohne speichern

[DeddyH]

Etwas kürzer, aber mit derselben Logik:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := true;
  if not (Gespeichert) then
  begin
    CanClose := MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?',
     mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes;
  end;
end;