[QaK]

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 раз просили и писали.