[ALexandr555]

Собственно как создать неизвестное количество таймеров

...
TimerPool : array of TTimer;
...

TimerPool[1] := TTimer.Create(Self);
TimerPool[1] .Interval := 500;
TimerPool[1].OnTimer := ....
TimerPool[1].Enabled := True;

так собственно будут не зависимые друг от друга таймеры создаваться

[v1s2222]

Код:

procedure TForm1.myproc(Sender: TObject);
begin
// твои действия... можно работать с таймером (если надо):
  TTimer(Sender).Tag, Interval, Enabled...
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  x: array of TTimer;
  len, i: integer;
begin
  len:=0;
  setlength(x, len+1); // 1 таймер создаем
  for i:=0 to len do begin
    x[i] := TTimer.Create(self);
    x[i].Interval := 1000;
    x[i].OnTimer := myproc;
    x[i].Enabled := True;
  end;
end;

Это как один из вариантов...

[ALexandr555]

Код:

rocedure TForm1.FormCreate(Sender: TObject);
var
  x: array of TTimer;
  len, i: integer;
begin
  len:=0;
  setlength(x, len+1); 
    x[len] := TTimer.Create(self);
    x[len].Interval := 1000;
    x[len].OnTimer := myproc;
    x[len].Enabled := True;
  end;
end;

Спасибо, у меня по процедуре будет создаваться таймер а не определенное чилсло таймеров сразу так что вроде так
да и как мне в procedure TForm1.myproc(Sender: TObject);
удалить таймер который использует её так скажем

TForm1.myproc(Sender: TObject);
действия
удаляем
этот таймер

[Страдалецъ]

Можно создавать вообще без массива, но вот добираться до нужного таймера будет проблематично:

Код:

with TTimer.Create(Self)
do begin
    Interval := 1000;
    OnTimer := MyProc;
    Enabled := True;    
    end;

[ALexandr555]

нет не пойдет мне всетаки нужно его убирать будет

[v1s2222]

Если правильно понял, тебе надо отключить таймер? Или полностью удалить его? Если удалить - будет сложнее, т.к. все таймеры находятся в дин. массиве. Если же просто отключить, то я уже говорил как:

Код:

procedure TForm1.myproc(Sender: TObject);
begin
ТВОИ ДЕЙСТВИЯ
...

  TTimer(Sender).Enabled := False;
end;