//Пример кода : Показ диалога с подтверждением 
var
  buttonSelected : Integer;
begin
  // Отображение диалога с подтверждением
  buttonSelected := MessageDlg('Confirmation',mtError, mbOKCancel, 0);

  // Показ типа выбранной кнопки
  if buttonSelected = mrOK     then ShowMessage('Была нажата OK');
  if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');
end;

//Пример кода : Отображает заказной диалог с заказным выбором кнопки 
var
  buttonSelected : Integer;
begin
  // Отображение заказного диалога
  buttonSelected := MessageDlg('Custom dialog',mtCustom, 
                              [mbYes,mbAll,mbCancel], 0);

  // Показ типа выбранной кнопки
  if buttonSelected = mrYes    then ShowMessage('Была нажата Yes');
  if buttonSelected = mrAll    then ShowMessage('Была нажата All');
  if buttonSelected = mrCancel then ShowMessage('Была нажата Cancel');
end;