[pmen]

Так правельно?
begin
if FromClient and (pck[1]=#$04)and (not b) then
begin
a:=ReadD(2); x:=ReadD(6);
y:=ReadD(10); z:=ReadD(14);
b:=true;
end;
begin
if fromServer and (pck[1]=#$28) then
pck='28+Writed(a)+Writed(x)+Writed(y)+Writed(z)';

Добавлено через 8 минут
я имею вввиду замену пакета который шлет сервер на мой

f fromServer and (pck[1]=#$28) then
pck='28+Writed(a)+Writed(x)+Writed(y)+Writed(z)';