delphi Код:
PNetworkPacket = ^TNetworkPacket;
TNetworkPacket = packed record
id: byte; // ID пакета
res: byte; // тут ничего нужного нет
id2: Smallint; // второй ID если есть
size: Smallint; // размер данных
res2: Smallint;
data: array of byte; // указатель на данные
end;