[dr. F.I.N.]

Сообщение от fusic

Есть вариант через FindComponent. Может быть есть более правильный вариант ?

-Массиву присвоить указатели на существующие таймеры:

Код:

TForm1=class(TForm)
...
public
  timers: array[0..5] of Timer;
end;
...
procedure TForm1.OnCreate(Sender: TObject);
begin
...
  timers[0] := T0;
  ...
  timers[5] := T5;
end;
...

-Динамическое создание массива таймеров:

Код:

TForm1=class(TForm)
...
public
  timers: array[0..5] of Timer;
end;
...
procedure TForm1.OnCreate(Sender: TObject);
var
  i: Integer;
begin
...
  for i := 0 to 5 do
  begin
    timers[i] := TTimer.Create(Self);
    with timers[i] do
    begin
      Interval := ...;
      OnTimer := SomeTimerProc;
      Active := ...;
    end;
  end;
  ...
end;
...

Ну и уже работать с элементами массива по индексу.