Люди,помогите с процедурой на выход!

[Alexij]

Подскажите как написать процедуры на кнопку "Выход" (Или на закрытие формы,т.е. при нажатии крестика в правом верхнем углу),так чтобы при нажатии этой кнопке выходило диалоговое окно "Вы действительно ходите выйти?",а на нем естественно кнопки: "Да" или "Нет"??????????????
БУДУ ЗАРАНЕЕ БЛАГОДАРЕН!!!!

[GHO§T]

в Форме на OnCloseQuery делай. Это кнопка [X]

[Kostia]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Res: integer;
begin
  CanClose:=false;
  Res:=MessageBox(Handle,'Вы действительно ходите выйти?','Caption',MB_YESNO or MB_ICONQUESTION);
  if Res=ID_YES then
    CanClose:=true;
end;

[FaTaL]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If MessageBox(Handle,'Вы действительно хотите выйти?','Выход', mb_YesNo or mb_iconquestion)=mrYes then
CanClose:=true else
CanClose:=false;
end;

[evg_m]

canclose:= ( mrok=MessageBox(.....) );

[Alexij]

Всем спасибо!