anchor.diff:      ms.Free;
     end;
     If ((FLastDataReceivedTS>0) Or ( NOT (Self is TNetServerClient)))
  -    and (TPlatform.GetElapsedMilliseconds(FLastHelloReceivedTS)>(1000*FRandomWaitSecondsSendHello)) then begin
  +    and (TPlatform.GetElapsedMilliseconds(FLastHelloTS)>(1000*FRandomWaitSecondsSendHello)) then begin
       iPending := TNetData.NetData.PendingRequest(Self,ops);
       If iPending>=2 then begin
         TLog.NewLog(ltDebug,Classname,'Pending requests without response... closing connection to '+ClientRemoteAddr+' > '+ops);
  
positive.code:         end;
        end;
  
        FLastHelloReceivedTS:=TPlatform.GetTickCount;
        FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 2);
  
        {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Hello received: '+TPCOperationsComp.OperationBlockToText(FRemoteOperationBlock));{$ENDIF}
  
negative.code:     FTcpIpClient : TNetTcpIpClient;
      FRemoteOperationBlock : TOperationBlock;
      FRemoteAccumulatedWork : UInt64;
      FLastHelloTS : TTickCount;
      FLastDataReceivedTS : TTickCount;
      FLastDataSendedTS : TTickCount;
      FClientBufferRead : TStream;
  