Подмена пакета

[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)';

[NLObP]

Сообщение от pmen

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

вот так пиши

  if fromServer and (pck[1]=#$28) then
  begin
    pck:'';  //убиваем пакет от сервера и делаем свой
    buf:=#$28;
    WriteD(a);
    WriteD(X);
    WriteD(Y);
    WriteD(Z);
    Sendtoclient
  end;