#pas
procedure THINTService.ServiceMain;
...
  fHandle := RegisterServiceCtrlHandler(...
  if fHandle<>0 then begin 
    ...
    repeat
      ...
      while PeekMessage( Msg, 0, 0, 0, PM_REMOVE ) do begin
        TranslateMessage( Msg );
        DispatchMessage( Msg );
      end;
    until WaitForSingleObject(fStop,_prop_StepTime)=WAIT_OBJECT_0;
    _hi_OnEvent(_event_onStop);
    ...
  end;
  CleanUp;
end;