anchor.diff:            iDebugStep := 300;
             Repeat
               iDebugStep := 400;
  -            if (MaxWaitTime > GetTickCount - tc) then MaxWaitTime := MaxWaitTime - (GetTickCount - tc)
  +            if (MaxWaitTime > TPlatform.GetTickCount - tc) then MaxWaitTime := MaxWaitTime - (TPlatform.GetTickCount - tc)
               else MaxWaitTime := 1;
               If (MaxWaitTime>60000) then MaxWaitTime:=60000;
  -            tc := GetTickCount;
  +            tc := TPlatform.GetTickCount;
               if (ReadTcpClientBuffer(MaxWaitTime,HeaderData,ReceiveDataBuffer)) then begin
                 iDebugStep := 500;
                 TNetData.NetData.NodeServersAddresses.UpdateNetConnection(Self);
  
positive.code:                     if (HeaderData.header_type=ntp_request) then
                        DoProcess_GetAccount_Request(HeaderData,ReceiveDataBuffer)
                      else TLog.NewLog(ltdebug,Classname,'Received old response of: '+TNetData.HeaderDataToText(HeaderData));
                    end
                  else
                    DisconnectInvalidClient(false,'Invalid operation: '+TNetData.HeaderDataToText(HeaderData));
  
negative.code:         ' Size:'+InttoStr(Buffer.Size)+'b '+s+'to '+
          ClientRemoteAddr);
        (Client as TBufferedNetTcpIpClient).WriteBufferToSend(Buffer);
        FLastDataSendedTS := TPlatform.GetTickCount;
        FRandomWaitSecondsSendHello := 90 + Random(60);
      Finally
        FNetLock.Release;
  