1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

var
Form1: TForm1;
nichtschliessen : Boolean;
procedure TForm1.Fertig1Click(Sender: TObject);

  begin
    if Application.MessageBox('Wollen Sie das Progamm wirklich beenden?', 'Beenden',
                              MB_ICONQUESTION+MB_YESNO) = IDYES
    then begin
              nichtschliessen := false;
              Close
    end
  end;
procedure TForm1.FormShow(Sender: TObject);

  begin
    nichtschliessen := true;
  end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := not nichtschliessen;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if (ssAlt in Shift) and (Key = VK_F4) //Alt+F4 zum Schließen drücken
     then Fertig1Click(Fertig1 as TObject) // ist in meinem Programm schlichtweg ein MenueItem
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var wert:integer;
begin
 if (geaendert) then
 begin

  wert:=messagedlg('Der Text der Datenliste wurde verändert. Aktuelle Änderungen speichern?',mtwarning,[mbyes,mbno,mbcancel],0);
  if (wert=mryes) then
  begin
   if (aufgerufen) then begin abspeichern; form1.Visible:=true; end
   else begin speichern_unter; form1.Visible:=true; end;
  end;
  if (wert=mrcancel) then begin canclose:=false; end;
  if (wert=mrno) then begin form1.Visible:=true; end;
 end
 else
 begin
 canclose:=true;
 form1.visible:=true;
 end;

end;