我要动态创建一个timer，如何设置它的OnTimer事件？(50分)

我要动态创建一个timer，如何设置它的OnTimer事件？

也就是说动态创建的这个timer的OnTimer事件如何写？？

给个小代码!

多谢

自己写个procedure form1.mytimer(...) //
begin
//your codes;
end

然后在你创建一个timer后,写 MyTimer.ontimer := mytimer
//------------------------------下面的代码可以运行---------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure MyTimer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i : integer=1;
implementation

{$R *.dfm}

procedure TForm1.MyTimer(Sender: TObject);

begin
i := i + 1;
caption := inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
timer1 : TTimer;
begin
timer1 := TTimer.Create(self);
timer1.Enabled :=true;
timer1.OnTimer := MyTimer;
end;

end.

写个类方法并让它有senderbject 参数。
然后让timer.ontimer:=这个方法。

接受答案了.