Form: OnClose Ereignis nutzen

[Blacklotus]

Ich vermute mal du braucht sowas in der Art:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Programm wirklich beenden?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
Canclose := false;
end;