anchor.diff:    BufferData.Size := 0;
     TPCThread.ProtectEnterCriticalSection(Self,FNetLock);
     try
  -    tc := GetTickCount;
  +    tc := TPlatform.GetTickCount;
       repeat
         If not Connected then exit;
         if Not Client.Connected then exit;
  
positive.code:     FTcpIpClient : TNetTcpIpClient;
      FRemoteOperationBlock : TOperationBlock;
      FRemoteAccumulatedWork : UInt64;
      FLastDataReceivedTS : Cardinal;
      FLastDataSendedTS : Cardinal;
      FClientBufferRead : TStream;
      FNetLock : TPCCriticalSection;
      FIsWaitingForResponse : Boolean;
  
negative.code:     If Not Assigned(FTcpIpClient) then exit;
      if Not Client.Connected then exit;
      iDebugStep := 110;
      tc := TPlatform.GetTickCount;
      If TPCThread.TryProtectEnterCriticalSection(Self,MaxWaitTime,FNetLock) then begin
        Try
          iDebugStep := 120;
  