procedure

TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Opravdu ukočit ?', mtConfirmation, mbYesNoCancel, 0) = mrYes
then CanClose := true
else CanClose := false;
end;
Při pokusu o ukončení se zobrazí dialogové okno s potvrzením. To je samozřejmě pouze ukázkové řešení pro názornost a v reálných aplikacích použijeme určitě jiné řešení. Zkušenější z vás jistě vědí, že takto napsaný kód ovšem zobrazí onen dialog při každém ukončení aplikace, tedy ne jen pouze při pokusu o ukončení z "vnějšku", ale i při uzavření aplikace běžným způsobem. Proto by bylo vhodné doplnit proceduru o test, který nám určí, "kdo" aplikaci ukončuje. To nechám čtenářům za domácí úkol.