Вывод сообщений на delphi

[MODERN Участник]

сейчас я расскажу как выводить сообщения в delphi.
для вывода простого сообщения есть такой код:

ShowMessage('сообщение')

а для вывода сообщения с картинкой, не сколькоми кнопками(как в basic`е)
такой код:

MessageDLG('Вывод сообщения',mtConfirmation,[mbYes,mbNo,mbCancel],0);

в этом сообщение будет 3 кнопки

теперь рассказываю подробно о этом:

'Вывод сообщения' это текст

mtconfirmation это тип сообщения

[mbYes,mbNo,mbCancel] это кнопки

а 0 это индекс помощи можно ставить просто 0

теперь про кнопки

1. mbYes - это да
2. mbNo - нет
3. mbOK - ОК
4. mbCancel - канцел
5. mbHelp - помощь
6. mbAbort - прервавть
7. mbRetry - повтор
8. mbIgnore - пропустить
9. mbAll - про эту кнопку незнаю

а теперь про типы их 5

1. mtWarning - предупреждение
2. mtError - ошибка
3. mtInformation - информация
4. mtConfirmation - запрос
5. mtCustom - тоже самое что и ShowMessage

вот пример проги:

объявим переменную r(помните где переменные обьявлять?)

Var R:Word;
на форму кинем текстовое поле и кнопку, в ней пишем такой код:
r:= MessageDLG('ghghh', mterror, [mbYes,mbNo,mbcancel], 0);

if R = mrYes then;
   begin edit1.Text := 'Yes';
   end;
if R=mrNo then
   begin edit1.Text := 'No';
   end;
if r=mrcancel then
   begin edit1.Text := 'Cancel'
   end;