_event_onContinue:THI_Event;    
    _event_StepTime:THI_Event;    
    CleanUp:procedure;

    procedure Start;
    procedure _work_doStepTime(var _Data:TData; Index:word);

procedure THINTService._work_doStepTime;
begin
  _prop_StepTime := ReadInteger(_Data,_event_StepTime,0);
end;

end.

[Property]
ServiceName=Системное имя сервиса|2|MyService
@StepTime=Переодичность вызова события onStep (миллисекунд)|1|50

*onContinue=Событие происходит при продолжении после приостановки сервиса.|2|
*StepTime=Переодичность, устанавливаемая по doStepTime|4|int