How to rename popup form name?

Question

Delphi

Here is the screenshot

spoiler

, I do it simply:
procedure TFormBaza1.BitBtn1Click(Sender: TObject);
begin
if ...then
begin
...
end
else
begin
...
ShowMessage('Record not found!');
end;
end;
end.
Simply, I thought to change it to something like Warning) or Error!, which would bypass the creation of a new form to display this message.
Thank you very much in advance.

Answer 1

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

or

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

Answer 2

Use the MessageDlg function. It has a title, an icon, and the necessary buttons