Код:
const CharName='Сюдапишешьимятвоегочара';
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
//сначала пример блока от клиента с заменой
if (FromClient) and (ConnectName=CharName) then
begin if pck=#$2F+#$06+#$00 //пример абсолютно нереальный сюда ставишь свой пакет
then begin pck:=''; //блокируем пакет
buf:=#$2F+#$07 //аналогично формируем другой пакет
SendToServerEx(CharName); // посылаем подмененный пакет
end;
end;
//для блокировки со стороны сервера и замены изменить FromClient на FromServer и SendToServerEx на SendToClientEx
end.
А вообше - учись юзать поиск, таких решений уже 1000 раз просили и писали.