procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
if MessageDlg('CHIUSURA', 'Sei sicuro/a di voler abbandonare il programma?', mtConfirmation, [mbYes, mbNo],0) = mrNo then
CanClose := False; {interrompe la chiusura dell'applicazione}
end;