Помогите, что не так...

[BuuG]

Задача такая:
1. пакету 01 к серверу нужно в конце дописать 4-е байта (01 00 00 00)
2. пакету 2F к серверу нужно поменять 6-й байт на 00
3. заблокировать пакет 81 к серверу.
Знающие люди подскажите, что нетак, л2пх выдает крита с моим скриптом?

const
ebalyavsehvrot='01 00 00 00';

begin
  if FromClient and (pck[1]=HStr('01')) and (pck[26]<HStr('01')) then begin
    buf:=pck + hstr(ebalyavsehvrot);
    SendToServer;
    pck:='';
  end;

  if FromClient and (pck[1]=HStr('2F')) and (pck[6]>HStr('01')) then begin
    pck[6]:=HStr('00');
    buf:=pck;
    SendToServer;
    pck:='';
  end;

  if FromClient and (pck=HStr('81')) then begin
    buf:=HStr('3F');
    SendToServer;
    pck:='';
  end;
end.