نوشتن رویداد تایمر در زمان اجرا

[jandaghian]

سلام من یک سری تایمر در زمان اجرا create کردم و حالا میخوام یه پروسیجر بنویسم که برای هر تایمر با پارامترهای مربوطه لود بشه اولا بگم نگید برو بگرد چون توی سایت موارد مشابه رو دیدم ولی نمیدونم اشکال کارم کجاست
خواهشا توجه کنید:
پروسیجر Mymethod را تعریف کردم اینطوری:
procedure TForm1.Mymethod(tt: ttimer);
begin
ShowMessage(tt.Name);
end;
میخوام تایمر را به داخل پروسیجر Mymethod پاس کنم:
procedure TForm1.BitBtn1Click
(Sender: TObject);
var i:Integer;
Ti:TTimer;
begin
for i:=3 to StrToInt(NumberTrain.text) do
begin
Ti:=TTimer.Create(Self);
Ti.Name:= 'Timer'+IntToStr(i); *TTimer(FindComponent('Timer'+IntToStr(i))).OnTime r:=Mymethod(TTimer(FindComponent('Timer'+IntToStr( i))));
TTimer(FindComponent('Timer'+IntToStr(i))).Enabled :=True;
end;
end;

روی خط * خطا میده
چکار کنم؟ لطفا!...

[ghabil]

اینطوری کن کدت رو :


procedure MyMethod(Sender:TObject);
begin
ShowMessage((Sender as TTimer).Name);
end;

....
TTimer(FindComponent('Timer'+IntToStr(i))).OnTimer :=Mymethod

[jandaghian]

آه مرسی متشکر