Проблема с MessageBox

[ORBIUS]

Кто нить помогите. Пишу строку:
application.MessageBox('111','111', 1);
в программе выдаеться окно с сообщением и двумя кнопками "ОК" и "Отмена".
Но что бы я не нажал результат нулевой. Что сделать что бы назначить действие на кнопку???

[Квэнди]

messagebox и messagedlg это функции, возвращающие модальное значение результатов своего отображения, такие как mbok и т.д. что очень подробно описано в F1

[JTG]

[offtop]Вот и выросло поколение компонентного программирования [/offtop]

[FaTaL]

Например так:

If MessageBox (Handle, 'Вы хотите закрыть программу?', 'Выход', mb_YesNo or mb_IconQuestion) = mrYes then close;

[KORN]

If MessageBox (Handle, 'Вы хотите закрыть программу?', '', MB_ICONQUESTION+MB_YESNO) = ID_YES then 
close;

[Shouldercannon]

var res: Integer;
begin
res:=MessageBox(0, 'Вы действительно хотите выйти из программы', 'Project1', MB_YESNOCANCEL or MB_ICONInformation or MB_DEFBUTTON1);
case res of
IDYES: ///;
IDNo: ///;
IDCANCEL: ///;
end;

[mihali4]

Хорош извращаться.
Ответ дан, причем на любой вкус и цвет.
Закрываю флудильню.