[supernewbie]

ну как минимум надо делать так

if fromserver and (pck[1]=#$9F) then
begin
buf:=pck;
buf[22]:=#$00;
SendToClient;
pck:='';
end;