CanClose

[Der schöne Günther]

Als weiteren Vorschlag würde ich die Prüfung mit dem "Großer Gott, WIRKLICH SCHLIEßEN !?!?!"-Dialog und dem Abschlussdialog ("Es wurden X Crêpes verkauft") in eigene Methoden auslagern, so dass es ungefähr so aussieht:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
   self.Close();
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ZeigeAbschlussDialog();
end;

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   if UserIstSichWirklichSicher() then
      CanClose := True
   else
      CanClose := False
   ;
end;