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:                 case HeaderData.operation of
                    CT_NetOp_Hello : Begin
                      if TNetData.NetData.IpInfos.ReachesLimits(Client.RemoteHost,CT_NetTransferType[HeaderData.header_type],TNetData.OperationToText(HeaderData.operation),HeaderData.buffer_data_length,
                        TArray<TLimitLifetime>.Create(TLimitLifetime.Create(CT_NewLineSecondsAvg * 2,10,20000))) then DisconnectInvalidClient(False,Format('Reached limit %s',[TNetData.OperationToText(HeaderData.operation)]))
                      else begin
                        iDebugStep := 1100;
                        DoProcess_Hello(HeaderData,ReceiveDataBuffer);
  
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;
  