MessageDlg wahrscheinlich ganz einfach

[Klaus01]

Delphi-Quellcode:

if MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_no then 
  close // hier wird das Close Event wieder gestartet und dadurch die CloseQuery nochmals ausgeführt.
else 
  CanClose:=False; 
end;

vielleicht klappt es so besser:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin
  canClose:=true; 
  If MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)=id_yes then 
    //Speichern 
  else 
       // die Fragestellung etwas überarbeitet
    if MessageDlg('Wollen sie die Rechnung wirklich nicht speichern?',mtConfirmation,mbYesNoCancel,0)=id_yes then 
      close 
    else 
      CanClose:=False; 
end;

Grüße
Klaus