if assigned(fontimeup) then
fontimeup(self);
end;
end;
procedure tclock.resetbackclock;
var
i:integer;
begin
if state=strunclock then
begin
active:=false;
for i:=1 to 8 do rcd[i]:=0;
caption:='00:00:00:00';
end;
end;
procedure tclock.resetrunclock;
begin
if state=stbackclock then
begin
active:=false;
caption:=begintime;
end;
end;
