published
end;
二，确定成员，方法和属性和事件
fcount; 只读私有成员，保存计数值
factive:boolean; /确定是否发生类的时间间隔事件
finterval:tinterval; 这个可以设置时间事件触发间隔，本来用整型值会好一些，但会了学习起见，这里用了一个枚举形的，在type中声明如下：
tinterval=(tenm,twentym,thirtym,fortym,fiftym,sixtym);
分别表示十分钟到六十分钟。
timelen，timenum:integer;这两个用在类的时间事件发生的确定上，与外界隔绝。
ftimeout:tnotifyevent;时间间隔事件的方法指针，通过调度方法实现他与外部的处理函数关联。
我们要它能以秒为单位来计数，则要涉及到时间的应用，所以就有了这个最重要的成员：
ftimer:ttimer;
这个成员对象要在类构造函数中实例化它，并赋与他的属性值，还要在析构函数在释放它。
如下：
//构造函数，继承父类的构造函数，并初始化类中的成员。
constructor ttimecount.create(aowner:tcomponent);
//创建时间控件并设置相关的参数
procedure createtimer;
