вот тебе пример только на основе месседждлг ... вообщем одна и таже зараза ...
Код:
if MessageDlg('Вы не промазали? Точно изменить 1 запись?', mtWarning,
mbOKCancel, 0) = mrOK then
begin
mrOK это делфийская константа 1 ... можно вместо нее написать
"...= 1 then..." 1 будет одно и тоже ....
upd ну вот на твоём примере будет както так ...
Код:
if MessageBox(Self.Handle,
PChar('...:...?'), PChar('....'), MB_YESNO + MB_ICONWARNING) = mrYes then
begin