[alexteam]

смотря что ты пишещь в пцк. размер + данные либо сами данные. длина data = 1..$fffd.


в идеале:

procedure TXorCoding.DecryptGP(var Data; const Size: Word);
var
packet : tpacket;
begin
packet.size := size;
move(data, packet.data, size);

а дальше - работа с рекордом.
(писал на коленке)

Добавлено через 3 минуты
ну и в конце естественно

size := packet.size; //не должно меняться, но мало ли. вдруг ты пакет убьешь, или заменишь его на свой другой длинны.
move(packet.data, data, packet.size);