Закрытие формы (Delphi)

[VadEr]

Добрый день!
Что нужно сделать, чтобы при первой попытке закрыть форму, - она не закрылась, а вывела сообщение.

[Chudo4258]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messageDlg('Убедитесь что изменения в документе сохранены. Закрыть?',mtconfirmation, [mbOk,mbCancel],0)=mrCancel
then CanClose:=false;
end;

[densan]

B

egin

  with Application do
  begin
    NormalizeTopMosts;
    MessageBox('This should be on top.', 'Look', [smbOK]);
    RestoreTopMosts;
  end;
end;

[Terran]

Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
If Tag = 0 Then
Begin
Action:=CaNone;
ShowMessage('Сообщение');
Tag:=1;
End;
End;

[VadEr]

Благодарю!