anchor.diff:      FTcpIpClient : TNetTcpIpClient;
       FRemoteOperationBlock : TOperationBlock;
       FRemoteAccumulatedWork : UInt64;
  -    FLastHelloReceivedTS : TTickCount;
  +    FLastHelloTS : TTickCount;
       FLastDataReceivedTS : TTickCount;
       FLastDataSendedTS : TTickCount;
       FClientBufferRead : TStream;
  
positive.code:   FIsWaitingForResponse := false;
    FClientBufferRead := TMemoryStream.Create;
    FNetLock := TPCCriticalSection.Create('TNetConnection_NetLock');
    FLastHelloReceivedTS := 0;
    FLastDataReceivedTS := 0;
    FLastDataSendedTS := 0;
    FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 2);
  
negative.code:     ms.Free;
    end;
    If ((FLastDataReceivedTS>0) Or ( NOT (Self is TNetServerClient)))
      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);
  