Introduzione
Il codice che vi proponiamo oggi, che riguarda naturalmente la programmazione con Borland Delphi, permette di chiedere un messaggio di conferma prima dell'uscita dal programma e quindi della sua chiusura ed in base al valore di una variabile sceglierà se chiudere l'applicazione o ritornare alla schermata precedente dell'applicazione e di conseguenza non chiuderlo. :

Codice per lo script

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 

if Application.MessageBox('Sei sicuro di voler uscire?', 'CONFERMA', 
MB_YESNO + MB_ICONQUESTION) = IDYES then 

CanClose := True
else 
CanClose := False;
end;