Hallo...
die Procedure OnCloseQuery wird aufgerufen sobald du auf das Kreuz klickst bzw. du auf andere Weise versuchst die Form zu schließen.
Deinen Code einfach da rein.
Beispiel:
Delphi-Quellcode:
if MessageDlg('Möchten Sie wirklich beenden ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then CanClose:= True else CanClose:= False;
ist die Variable CanClose=True wird die Form geschlossen ansonsten nicht.
[edit]
zu langsam... zu alt
[/edit]