Еще вариант реализации, мне кажется более оптимальный:
Код:
begin
if FromClient and (pck[1] = #$00) then
begin
buf:=#$A1#$57#$5E#$F3#$00#$00#$00#$01#$00#$01#$00#$C4#$A5#$06#$00#$01#$00#$00#$00#$00#$00#$00#$00;
WriteD(ReadD(4),12);
SendToServerEx(name);
end;
end.
4 байта из пакета pck будут вставлены в пакет buf.