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

[NLObP]

Может так?

var
 tmp: integer; //временная переменная
begin
  if fromclient and (pck=#$6C) then begin
    buf:=pck; //копируем пакет для работы
    tmp:=ReadD(6)-1; //сохраним в переменной
    pck := '';  //удаляем
    SendToServer; //отправляем пакет без изменения
    WriteD(tmp, 6); //вставляем данные в пакет начиная с 6 байта
    SendToServer; //отправляем изменённый пакет
  end;
end.

Добавлено через 1 минуту

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

ПС Не пашет, при ручной генерации подобного пакета кидает с серва

Покажи пакеты из лога, которые получаются через клиент.