unit hello1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
TForm1 = class(TForm)
  Label1: TLabel;
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
 Form1: TForm1;

implementation

{§R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg(Label1.Caption, mtInformation, [mbOK], 0);
end;

end.