Поочередной вывод значений цикла

[utro35]

Как раз таймер для меня и проще и понятнее, я никак не могу понять, как вывести значение таймера в label.
label.caption:=IntToStr (t) не срабатывает.
Может быть я его не туда вставляю.
Вот что у меня (по клику сразу появляется 100):
procedure TForm1.Timer1Timer(Sender: TObject);
var i,t: integer;
begin
t:=0;
begin
for i:=1 to 100 do
begin
t:=t+1;
label1.Caption:= inttostr(t);
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

[phomm]

var t: integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if t = 100 then
begin
Timer1.Enabled:= false;
exit;
end;
t:=t+1;
label1.Caption:= inttostr(t);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
end;

В следующий раз используйте оформление кода, кнопочкой #

[Serge_Bliznykov]

phomm
чтобы таймер "не отставал", лучше показыать разницу между системным таймером и запомненным в момент старта временем.
впрочем, в теме, на которую дал ссылочку Пепел Феникса в пост #10, примеры кода уже даны..

[utro35]

Всем спасибо, все получилось.