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

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

[angvelem]

Код:

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, спасибо тебе огромное- респект и уважуха...