anchor.diff:        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}
         if (HeaderData.header_type in [ntp_request,ntp_response]) then begin
  
positive.code:           last_bytes_read := auxstream.size;
            if last_bytes_read>0 then begin
              FLastDataReceivedTS := TPlatform.GetTickCount;
              FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 5);
  
              FClientBufferRead.Position := FClientBufferRead.size; // Go to the end
              auxstream.Position := 0;
  
negative.code:   FLastHelloReceivedTS := 0;
    FLastDataReceivedTS := 0;
    FLastDataSendedTS := 0;
    FRandomWaitSecondsSendHello := (CT_NewLineSecondsAvg DIV 3) + Random(CT_NewLineSecondsAvg DIV 2);
    FTcpIpClient := Nil;
    FRemoteOperationBlock := CT_OperationBlock_NUL;
    FRemoteAccumulatedWork := 0;
  