NewThread1:=TNewThread1.Create(true);
  NewThread1.FreeOnTerminate:=true;
  NewThread1.Priority:=tpLower;
  NewThread1.Resume;

  NewThread2:=TNewThread2.Create(true);
  NewThread2.FreeOnTerminate:=true;
  NewThread2.Priority:=tpLower;
  NewThread2.Resume;

  NewThread3:=TNewThread3.Create(true);
  NewThread3.FreeOnTerminate:=true;
  NewThread3.Priority:=tpLower;
  NewThread3.Resume;

  NewThread4:=TNewThread4.Create(true);
  NewThread4.FreeOnTerminate:=true;
  NewThread4.Priority:=tpLower;
  NewThread4.Resume;

procedure TNewThread4.Execute;
begin
try
  Success4:=CoInitialize(nil);
    try
      TestCon;
    finally
      case Success4 of
        S_OK, S_FALSE: CoUninitialize;
      end;
    end;
  except
    on E:Exception do
        MSServisPC.AddLog(DateTimeToStr(Now) + ': Îøèáêà â ïîòîêå ¹4. ' + E.Classname + ':' + E.Message, 'MSServicePCError.txt');
  end;
end;

procedure TMSServisPC.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  NewThread1.FreeOnTerminate:=false;
  NewThread1.Free;
  NewThread2.FreeOnTerminate:=false;
  NewThread2.Free;
  NewThread3.FreeOnTerminate:=false;
  NewThread3.Free;
  NewThread4.FreeOnTerminate:=false;
  NewThread4.Free;

  MSServisPC.WriteProcess('ServiceStop', '', DateTimeToStr(now), '', '', MSServisPC.GetComputerNetName);
end;