timenum:integer;//计数值，和timelen一起有用，以判断是否事件该发生了
ftimeout:tnotifyevent;//事件的方法指针
procedure setinterval(i:tinterval);
procedure setactive(a:boolean);
procedure ftimertimer(sender:tobject);//时间控件的事件处理函数
protected
procedure dotimeout;dynamic; //调度方法，用于关联事件。
public
procedure pause; //暂停计数
procedure resume;//从暂停的计数开始计数。
procedure stop;//停止
procedure start;//开始计数
constructor create(aowner:tcomponent);override;
destructor destroy;override;
property count:integer read fcount; //计数值的只读属性
published
property interval:tinterval read finterval write setinterval default tenm;
