у меня просто очень много лейблов(для начала) которые надо менять, и для каждого лейбла прописывать действие, вместе с изменением переменной - очень муторно, проще будет написать
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Label11.Caption:=IntToStr(str);
Form1.Label12.Caption:=IntToStr(agi);
Form1.Label13.Caption:=IntToStr(int);
Form1.Label14.Caption:=IntToStr(uda);
Form1.Label15.Caption:=IntToStr(ref);
Form1.Label16.Caption:=IntToStr(mud);
Form1.Label17.Caption:=IntToStr(slo);
Form1.Label21.Caption:=IntToStr(elix);
Form1.Label24.Caption:=IntToStr(hp);
Form1.Label25.Caption:=IntToStr(mp);
Form1.Label19.Caption:=IntToStr(fre);
end;
чем прописывать измнение лейбла и переменной