Обработка нажатий кнопок в MessageBox

function MessageBox(h: integer; m, c: string; t: integer): integer;
external 'User32.dll' name 'MessageBox';
 
begin
  MessageBox(0, 'Пример сообщения.', 'Сообщение', 4);
end.

{$apptype windows}
{$reference System.Windows.Forms.dll}
{$reference MessageBoxManager.dll}
 
uses
  System.Windows.Forms;
 
begin
  MessageBoxManager.Ok := 'Хорошо';
  MessageBoxManager.Yes := 'Угу';
  MessageBoxManager.No := 'Не-а';
  MessageBoxManager.Register();
  
  var R : DialogResult := 
    MessageBox.Show('Выберите подходящее действие нажатием соответствующей кнопки',
                    'Задание', MessageBoxButtons.YesNo, MessageBoxIcon.Information);
 
  // чтобы следующие вызовы MessageBox работали с обычными названиями кнопок
  MessageBoxManager.Unregister();
  
  // обрабатываем результат нажатия
  case R of
    DialogResult.Yes : 
      MessageBox.Show('Была нажата кнопка "Угу"', 'Результат', 
                      MessageBoxButtons.OK, MessageBoxIcon.Information);
    DialogResult.No :
      MessageBox.Show('Была нажата кнопка "Не-а"', 'Результат',
                      MessageBoxButtons.YesNo, MessageBoxIcon.Information);
  end;
end.