1unit MessageForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 8
 9type
10  TfrmMessage = class(TForm)
11    Label1: TLabel;
12    Button1: TButton;
13  private
14    { Private declarations }
15  public
16    { Public declarations }
17    function Execute(ACaption, AText: string): TModalResult;
18  end;
19
20var
21  frmMessage: TfrmMessage;
22
23implementation
24
25{$R *.dfm}
26
27function TfrmMessage.Execute(ACaption, AText: string): TModalResult;
28begin
29  frmMessage:= TfrmMessage.Create(nil);
30  try
31    frmMessage.Caption:= ACaption;
32    frmMessage.Label1.Caption:= AText;
33    Result:= frmMessage.Showmodal;
34  finally
35    frmMessage.Free;
36  end;
37end;
38
39end.
40