[Sherman]

xor, как говорилось одним из старых рыцарей королевства Дельфи, нельзя, но если очень хочется, то можно, например вот так:

procedure TXorCodingOut.EncryptGP(var Data; const Size: Word);
var
  i:integer;
  pck:array[0..$FFFF] of Byte absolute Data;
  NewSize:word;
begin
  case pck[0] of
  $C0:
      begin
        if Size = 28 then
        begin
          NewSize:=39;//Size;
          Sign(@pck);
          copymemory(@Size, @NewSize, 2);         //NewSize=39
        end;
      end;
  end;
....
и погнали ксорить