*onReset=Событие происходит при сбросе счетчика|2|

#pas
procedure THICounter._work_doReset;
begin
   if _prop_Type = 0 then
      FCounter := _prop_Min
   else FCounter := _prop_Max;
   _hi_OnEvent(_event_onReset,0);
end;

procedure THICounter._work_doNext;
begin 
   if _prop_Type = 0 then
    begin
     inc(FCounter,_prop_Step);
     if FCounter > _prop_Max then _work_doReset(_Data,Index);
    end
   else
    begin
     dec(FCounter,_prop_Step);
     if FCounter < _prop_Min then _work_doReset(_Data,Index);
    end;
   _hi_CreateEvent(_Data,@_event_onNext,FCounter);
end;