Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
  Form1 = class(Form)
    procedure btnSay_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  internal
    {$resource Unit1.Form1.resources}
    txtYourName: TextBox;
    btnSay: Button;
    label1: &Label;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure Form1.btnSay_Click(sender: Object; e: EventArgs);
begin
  {Выдаёт оповещание "Привет ... !"}
  MessageBox.Show('Привет ' + txtYourName.Text + '!', 'Информация', MessageBoxButtons.OK, MessageBoxIcon.Information);
end;

end.