Не закрывать форму

[DenNik2006]

Сообщение от Romantik_FM

case MessageBox(Handle, 'Вы хотите выйти?' , 'Выход', MB_YESNO + MB_ICONQUESTION)  of
  IDYES:
    begin
     CanClose:=true;
    end;
  IDNO:
    begin
     CanClose:=false;
    end;
end;

ой, блин!!! а можно еще проще

CanClose:= MessageBox(Handle, 'Вы хотите выйти?' , 'Выход', MB_YESNO + MB_ICONQUESTION) = mrYes;

ВСЕ!