[J-Fobos]

Еще вариант реализации, мне кажется более оптимальный:

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.