unit MessageForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TfrmMessage = class(TForm)
    Label1: TLabel;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute(ACaption, AText: string): TModalResult;
  end;

var
  frmMessage: TfrmMessage;

implementation

{$R *.dfm}

function TfrmMessage.Execute(ACaption, AText: string): TModalResult;
begin
  frmMessage:= TfrmMessage.Create(nil);
  try
    frmMessage.Caption:= ACaption;
    frmMessage.Label1.Caption:= AText;
    Result:= frmMessage.Showmodal;
  finally
    frmMessage.Free;
  end;
end;

end.