[Sherman]

TPacket = packed record case Integer of
    0: (Size: Word;
        Data: array[0..$FFFD] of Byte);
    1: (PacketAsByteArray: array[0..$FFFF] of Byte);
    2: (PacketAsCharArray: TCharArray);
    3: (pckSize: Word;
        pckId: Byte;
        pckData: array[0..$FFFC] of Byte);
  end;

Я так понимаю в том примере который я привел (newxor.dpr) ошибка размера пакета:

procedure TXorCoding.DecryptGP(var Data; const Size: Word); 
var 
  k:integer; 
  pck:array[0..$4FFF] of Byte absolute Data; <<< Ошибка
 должно быть
pck:array[0..$FFFF] of Byte absolute Data;
begin

я прав?