createtimer;
setview;
end;
//析构函数，先释放时间控件，再继承父类的析构函数
destructor ttimecount.destroy;
begin
ftimer.free;
inherited destroy;
end;
//设置时间事件发生间隔，财时要赋相应的间隔秒数
procedure ttimecount.setinterval(i:tinterval);
begin
if finterval<>i then
begin
finterval:=i;
case finterval of
tenm: timelen:=600;
twentym:timelen:=1200;
thirtym: timelen:=1800;
fortym: timelen:=2400;
fiftym:timelen:=3000;
sixtym:timelen:=3600;
end;
end;
end;
procedure ttimecount.setactive(a:boolean);
begin
if factive<>a then
