anchor.diff:    Move(aData^, SenderClient.fBuffer[SenderClient.fBufferSize], aLength);
     SenderClient.fBufferSize := SenderClient.fBufferSize + aLength;
   
  -  //gLog.AddTime('----  Received data from ' + GetNetAddressStr(aHandle) + ': length = ' + IntToStr(aLength));
  +//  gLog.AddTime('----  Received data from ' + GetNetAddressStr(aHandle) + ': length = ' + IntToStr(aLength));
   
     //Try to read data packet from buffer
     while SenderClient.fBufferSize >= 6 do
  
positive.code: //Someone has send us something
  //Send only complete messages to allow to add server messages inbetween
  procedure TKMNetServer.DataAvailable(aHandle: TKMNetHandleIndex; aData: Pointer; aLength: Cardinal);
  var
    PacketSender, PacketRecipient: TKMNetHandleIndex;
    PacketLength: Word;
    I, SenderRoom: Integer;
    SenderClient: TKMServerClient;
  begin
    Inc(BytesRX, aLength);
  
    SenderClient := fClientList.GetByHandle(aHandle);
    if SenderClient = nil then
    begin
      Status('Warning: Data Available from an unassigned client');
      exit;
    end;
  
    //Append new data to buffer
  
negative.code:                 RecieveMessage(PacketSender, @SenderClient.fBuffer[6], PacketLength);
          else    ScheduleSendData(PacketRecipient, @SenderClient.fBuffer[0], PacketLength+6);
        end;
      end;
  
      //Processing that packet may have caused this client to be kicked (joining room where banned)
      //and in that case SenderClient is invalid so we must exit immediately
  