end;
procedure tclock.setbegintime(value: string);
begin
try
strtotime(value);
fbegintime:=value;
if state=stbackclock then
begin
active:=false;
caption:=value;
end;
except
on exception do
begin
fbegintime:='00:00:00';
if state=stbackclock then caption:='00:00:00';
end;
end;
end;
procedure tclock.setwaketime(value: string);
begin
try
strtotime(value);
