Чтобы создать окно сообщения в Delphi, вы можете использовать функцию MessageDlg из модуля «Диалоги». Эта функция позволяет отображать сообщение с помощью настраиваемых кнопок и значков. Вот пример:

uses
  Dialogs;
procedure ShowMessageDialog;
begin
  MessageDlg('Hello, World!', mtInformation, [mbOK], 0);
end;

В этом примере сообщение «Hello, World!» будет отображаться в окне сообщения со значком информации и кнопкой «ОК».

Другой метод отображения сообщения в Delphi — использование функции ShowMessage из модуля «Диалоги». Вот пример:

uses
  Dialogs;
procedure ShowMessageDialog;
begin
  ShowMessage('Hello, World!');
end;

Функция ShowMessage отобразит простое окно сообщения с текстом «Hello, World!» и кнопкой «ОК».

Кроме того, вы можете создать собственное диалоговое окно сообщения, разработав форму с нужным макетом и содержимым. Вот пример:

1. Создайте новую форму в Delphi и оформите ее по своему вкусу. Добавьте метки, кнопки или любые другие компоненты по вашему желанию.

2. В событии нажатия кнопки или любом другом событии, которое запускает отображение сообщения, используйте следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyCustomMessageForm := TMyCustomMessageForm.Create(Self);
  try
    MyCustomMessageForm.ShowModal;
  finally
    MyCustomMessageForm.Free;
  end;
end;

В этом примере TMyCustomMessageForm— это имя созданной вами пользовательской формы. При вызове ShowModalформа пользовательского сообщения будет отображаться модально, пока пользователь не взаимодействует с ней.