Вопрос Delphi таймер не работает! Скрин и образец кода внутри!

[Vas]

Delphi таймер не работает! Скрин и образец кода предоставлены:
procedure TForm4.Timer2Timer(Sender: TObject);
var s: integer;
begin
i:=1;
Label1.Caption:=IntToStr(i);
i:=i+1;
end;
По идеи, он должен увеличиватся на 1, каждую секунду, но этого не случается. Просто стоит единичка и все. Ранее пробовала с циклом for но все равно ничего не получалось.
//otvet.imgsmail.ru/download/215397636_5ac4b93bad72554e60044ed762126170_120x120.png//otvet.imgsmail.ru/download/215397636_e30f80db4d37751ef338fd40d01226d3_120x120.png

 

[денис31647]

С чего вдруг что-то другое будет, если ты приравниваешь единице?

 

[Buckzor]

procedure TForm4.Timer2Timer(Sender: TObject); var s: integer; begin //i:=1; Label1.Caption:=IntToStr(i); i:=i+1; end;