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

[pmen]

Кто-то помогите(

if FromClient and (pck[1]=#$04) and (not b) then begin
a:=ReadD(2); x:=ReadD(6);
y:=ReadD(10); z:=ReadD(14); //скрипт запомнил мой OBj.ID и мои координаты

А вот дальше

begin
if fromServer and (pck[1]=#$28) then
pck:=hstr('28 +Writed(a)+Writed(x)+Writed(y)+Writed(z)'); //как вставить ранне прочитанное именно в этом ввиде не то что предлогал NlobP
buf:=ValidatePosition;
SendToServer;
end

Добавлено через 8 минут
Я нехочу его убивать.Мне нужно чтобы место стандартного посылался мой.

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

вот так пиши

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