Private timer:Ttimer;procedure MyTimerDo(Sender:Tobject);procedure create ; timer:=TtIMER.Create; Timer.Enabled:=True; timer.Ontimer:=MyTimerDo;end;procedure MyTimerDo(Sender:Tob……
动态创建timer
原文：http://www.cnblogs.com/Siegel/p/6920292.html
