Уменьшение числа внутри пакета(с чтением).

[Amorality]

Grinch,
Сбрасывать пакет не нужно.. Вот что-то попыталась сделать, но помоему бред, помоги написать плз что-нить подобное, только верно работающее.

var
id: Integer;
l: Integer;
begin
if (fromclient) and (pck=#$6C) then begin
   id:= StrToInt(HSTr(pck[2]+pck[3]+pck[4]+pck[5]));
   l := StrToInt(Hstr(pck[6]+pck[7]+pck[8]+pck[9])) - 1;
   buf:=#$6C;
   WriteD(id);
   WriteD(l);
   WriteD(0);
   SendToServer;
end;
end.