Работа с button1 (delphi)

[Cartman18]

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

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 if sender=button1 then
 begin
    inc(i)
 end;
 Label1.Caption:=inttostr(i);
end;

[Zer0]

Найдите в коде var Form1:TForm1;
и это i:integer; напишите рядом
А из обработчика - уберите