задача. число нажатий на баттон

[obsession]

поместить на форму кнопку батон и метку лейбл. составить программу, подсчитывающую число нажатий кнопки батон и выводящую результат в метку лейбл. при запуске в метке должно быть нулевое значение.

[BingoBongo]

var
  ...
  i: integer;

implementation
{$R *.dfm}

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption := inttostr(i);
  inc(i);
end;