1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TFormCloseq.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
VAR Antwort : INTEGER;
begin
   Antwort := Application.MessageBox ('Programm wirklich beenden?',
              'MessageBox',
              MB_YesNo+MB_IconQuestion+MB_DefButton2);
   CanClose := Antwort = IDYes;
end;