[aleksnine]

Код:

var
  Form1: TForm1;
  a:integer;

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=a+1;
Form1.Caption:=IntToStr(a);
end;