anchor.diff:  end;
   
   
  +procedure TKMNetworking.PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; aParam: Cardinal);
  +var
  +  M: TKMemoryStreamBinary;
  +begin
  +  Assert(NetPacketType[aKind] = pfNumber);
  +
  +  LogPacket(True, aKind, aRecipient);
  +
  +  M := TKMemoryStreamBinary.Create;
  +  M.Write(aKind, SizeOf(TKMessageKind));
  +
  +  M.Write(aParam);
  +
  +  fNetClient.SendData(fMyIndexOnServer, aRecipient, M.Memory, M.Size);
  +  M.Free;
  +end;
  +
  +
   procedure TKMNetworking.PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; aParam: Integer);
   var
     M: TKMemoryStreamBinary;
  
positive.code:     procedure PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind); overload;
      procedure PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; aStream: TKMemoryStreamBinary); overload;
      procedure PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; aParam: Integer); overload;
  //    procedure PacketSend(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; const aParams: array of Integer);
      procedure PacketSendInd(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; aIndexOnServer: TKMNetHandleIndex);
      procedure PacketSendA(aRecipient: TKMNetHandleIndex; aKind: TKMessageKind; const aText: AnsiString);
  
negative.code:   tmpStringA: AnsiString;
    tmpStringW, replyStringW: UnicodeString;
    tmpChatMode: TKMChatMode;
    I,LocID,TeamID,PlayerIndex: Integer;
    ChatSound: TKMChatSound;
  begin
    Assert(aLength >= 1, 'Unexpectedly short message'); //Kind, Message
  