anchor.diff:    netserverclientstop : TNetServerClient;
     newstats : TNetStatistics;
   begin
  -  FLastCheckTS := GetTickCount;
  +  FLastCheckTS := TPlatform.GetTickCount;
     while (Not Terminated) do begin
  -    if ((GetTickCount>(FLastCheckTS+1000)) AND (Not FNetData.FIsDiscoveringServers)) then begin
  +    if ((TPlatform.GetTickCount>(FLastCheckTS+1000)) AND (Not FNetData.FIsDiscoveringServers)) then begin
         nactive := 0;
         ndeleted := 0;
         nserverclients := 0;
         netserverclientstop := Nil;
  -      FLastCheckTS := GetTickCount;
  +      FLastCheckTS := TPlatform.GetTickCount;
         If (FNetData.FNetConnections.TryLockList(100,l)) then begin
           try
             newstats := CT_TNetStatistics_NUL;
  
positive.code:     FTcpIpClient : TNetTcpIpClient;
      FRemoteOperationBlock : TOperationBlock;
      FRemoteAccumulatedWork : UInt64;
      FLastDataReceivedTS : Cardinal;
      FLastDataSendedTS : Cardinal;
      FClientBufferRead : TStream;
      FNetLock : TPCCriticalSection;
      FIsWaitingForResponse : Boolean;
  
negative.code:   BufferData.Size := 0;
    TPCThread.ProtectEnterCriticalSection(Self,FNetLock);
    try
      tc := TPlatform.GetTickCount;
      repeat
        If not Connected then exit;
        if Not Client.Connected then exit;
  