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