[Grinch]

if FromServer and (ConnectName=PPbafer) and (pck[1]=#$4A) and (ReadD(6)=s)
     then begin i:=10;
                if ReadS(i)=BuffHunter then //say('iaa!!! Iieo?eeinu');
                begin

                if ReadS(i)='афф' then begin buf:=#$04;
                                             WriteD(TargetID);
                                             WriteD(tx);
                                             WriteD(ty);
                                             WriteD(tz);
                                             buf:=buf+#$00;
                                             SendToServerEx(PPbafer);
                                              Timer1.Enabled:=True;
                                       end;
                if ReadS(i)='офф' then begin buf:=#$09;
                                             SendToClientEx(PPbafer);
                                       end;
                end;
          end;

где S константа чата ну тут всё понятно (с) QaK

Добавлено через 1 минуту
ну месагу как отправить когда что то надо думаю проблем нет?