Sashafaq, начнем с того что ты говоришь про байты а не биты, если тебе надо заменить последние 4 байта с 25го на 01 00 00 00 в пакете от клиента с ИД 01, то сделай так:
Код:
begin
if FromClient and (pck[1]=#$01) then
begin
buf:=pck;
WriteD(1,25);
pck:=buf;
end;
end.
если я тебя не правильно понял выложи оба пакета, какой идет, и какой надо что б шел, подправим