Como controlar o fechamento de um formulário?

Procedure TForm1.FormCloseQuery(Sender: Tobject;
var CanClose: Bolean);
begin
if MessageDlg ( 'Você tem certeza de que quer sair?',
mtConfirmation, [mbYes, mbNo], 0) = idNo then
Canclose:=False;
end;