anchor.diff:            last_bytes_read := auxstream.size;
             if last_bytes_read>0 then begin
               FLastDataReceivedTS := TPlatform.GetTickCount;
  -            FRandomWaitSecondsSendHello := 90 + Random(60);
  +            FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 5);
   
               FClientBufferRead.Position := FClientBufferRead.size; // Go to the end
               auxstream.Position := 0;
  
positive.code:   FNetLock := TPCCriticalSection.Create('TNetConnection_NetLock');
    FLastDataReceivedTS := 0;
    FLastDataSendedTS := 0;
    FRandomWaitSecondsSendHello := 90 + Random(60);
    FTcpIpClient := Nil;
    FRemoteOperationBlock := CT_OperationBlock_NUL;
    FRemoteAccumulatedWork := 0;
  
negative.code:         ClientRemoteAddr);
        (Client as TBufferedNetTcpIpClient).WriteBufferToSend(Buffer);
        FLastDataSendedTS := TPlatform.GetTickCount;
        FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 5);
      Finally
        FNetLock.Release;
      End;
  