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

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

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

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