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

var
    Form1: TForm1;