Konfirmasi Close FORM (Delphi 7)

Dulu pernah saya sempat dibuat bingung dalam melakukan pembatalan ketika meng-close form.
Dan pada waktu itu akhirnya saya akalin dengan membuat button sendiri untuk exit.
Tetapi sekarang saya sudah menemukan caranya.
Pada even onClose sebuah form, masukkan kode dibawah ini:

procedure TMenuUtamaFm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if messagedlg('Anda yakin mau Keluar ?',mtConfirmation,[mbYes,mbNo],0)=IDNo then begin
   Action:=caNone;
end;

Semoga bermanfaat.