Menampilkan Pesan saat Menutup Form Delphi

Menampilkan pesan atau pertanyaan (Message Box) pada saat menutup suatu form di Delphi dapat dibuat dengan cara menambahkan code pada event OnCloseQuery yang ada pada form. Berikut ini adalah contoh codenya :
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
if MessageDlg('Form akan ditutup?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
CanClose := True
else
CanClose := False;
end;