[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);
действия
удаляем
этот таймер