MessageDlg wahrscheinlich ganz einfach

[DSFreak]

Einfach den Wert in einer Variablen speichern.

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  tmp : Byte;
begin
tmp := MessageDlg('Wollen sie die Rechnung speichern?',mtConfirmation,mbYesNoCancel,0)
If tmp=id_yes then
  //Speichern
else
  if tmp=id_no then
    close
  else
    CanClose:=False;
end;