Динамический Ttimer передача параметра

[Horus92]

Можно ли как - то при динамическом создании таймера передать число из переменной в него чтоб она в нем использовалась?. Только передать именно значение потому что потом значение переменной меняется.

[Пепел Феникса]

ну есть у таймера св-во Interval и у всех компонентов есть св-во Tag, которое можно использовать как хотите.

[Horus92]

так может и получиться но я не знаю как. вот вся ситуация
я создаю динамически таймер через массив записей

data[i].timerspeed:=Ttimer.Create(application);  //Создание таймера скорости
data[i].timerspeed.Interval := 1000  ;
data[i].timerspeed.OnTimer:=form2.timespeed; //Событие таймера скорости
data[i].timerspeed.Enabled:=true;         //Отключение таймера

Задаю ему событие.Мне нужно передать "i"

procedure TForm2.timespeed(Sender: TObject);
var point1,point2:integer;
begin
if  data[].tmpsize>0 then
  begin
  if k=0 then
    begin
      point2:=data[].tmpsize;
      k:=1;
    end
   else
    begin
      point1:=data[].tmpsize;
      data[].speed:=(point1-point2) div 1024;
      form3.speed.Caption:=inttostr(data[].speed)+ ' Kb\s';
      k:=0;
    end;
  end;
end;

и вот тут я должен использовать этот "i" но как? я думал через self но селф это класс этого окна где я создаю таймер.

[Serge_Bliznykov]

data[i].timerspeed.Enabled:=true;         //Отключение таймера

Это - ВКЛЮЧЕНИЕ таймера..

data[].tmpsize

а где описание структуры data ?!
имхо, Вы чего-то странного хотите..

у Вас в Sender уже передан тот таймер, который сработал..
Вам этого мало?!
Вам всё таки нужно получить его номер в массиве? (тот самый I) ?

Так воспользуйтесь советом уважаемого Пепел Феникса,
используйте поле tag:

data[i].timerspeed:=Ttimer.Create(application);  //Создание таймера скорости
data[i].timerspeed.Interval := 1000  ;
data[i].timerspeed.Tag := i ;
data[i].timerspeed.OnTimer:=form2.timespeed; //Событие таймера скорости

... потом в коде procedure TForm2.timespeed(Sender: TObject);
достаточно
i :=TTimer(Sender).Tag;