Как переименовать название формы всплывающего окна?

Question

[Hecntv]

Вот скрин

spoiler

, делаю просто:
procedure TFormBaza1.BitBtn1Click(Sender: TObject);
begin
if ...then
begin
...
end
else
begin
...
ShowMessage('Запись не найдена!');
end;
end;

end.

просто, думал изменить на что то типа Warning) или Ошибка!, что бы обойтись от создания новой формы для вывода этого сообщения.
Заранее большое Спасибо.

Comments

[Сергей Сергей]

Там есть ещё параметр или другая процедура - тип всплывающего окна, среди них ошибка, предупреждение, сообщение.

Answer 1

[Евгений Палыч]

Application.MessageBox('Запись не найдена!', 'Ошибка!', MB_OK + MB_ICONSTOP);

или

MessageDlg('Запись не найдена!',  mtError, [mbOK], 0);

Comments

[Hecntv]

spoiler

. Вопрос по теме , 1 это текст сообщения , 2 это название окна, а 3 и 4 за что отвечают?

[Hecntv]

Hecntv, 3 это кнопка?, а 0 это что?

[Евгений Палыч]

Hecntv, Среда разработки вам подсказки не делает?
К Application.MessageBox:
3 - кнопка Ок
4 - Иконка
Аналогично MessageDlg

[Евгений Палыч]

Hecntv, F1

[Hecntv]

Евгений Палыч, Спасибо).

Answer 2

[kalapanga]

Используйте функцию MessageDlg. Она и с заголовком, и с иконкой, и с нужными кнопками