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

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