#pas
if AutoStop >= 0 then dec(AutoStop);
f := AutoStop = 0;
 _hi_OnEvent(_event_onTimer);
if f then begin 
 flag := 0;
 OnStop;
end;
if flag > 0 then dec(flag);