[Nautilus]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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' ;

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

[angvelem]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Timer1Timer(Sender: TObject); var   I, T, Z : Integer; begin   Z := Random(80);   if Z > 33 then   begin     for I := 0 to ComponentCount - 1 do       if Components[i] is TLabel then         (Components[i] as TLabel).Caption := IntToStr(Z);   end   else     Labeli.Caption:= '27' ; end;

[Nautilus]

angvelem, спасибо тебе огромное- респект и уважуха...