[Nautilus]

Здравия всем!
Подскажите, можно ли (и как) управлять большим количеством полей типа Label одновременно. Хочу по таймеру имитировать показания датчиков (делаю Random) одновременно в нескольких десятках полей Label.
Вот мой бред

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
T: integer;
z: integer;
i: integer;
begin
     z := Random(80);
   if z>33  then
                    begin
    for i:=2 to 6  do
   Labelinttostr(i).Caption:= IntToStr(z);
   //Label4.Caption:= IntToStr(z) ;
//Label5.Caption:= IntToStr(z) ;
                    end
   else
                  begin
   Labeli.Caption:= '27' ;

Спасибо небезразличным.