[SeregaZ]

if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) //пати чат просят рес
  then begin
     j:=10;                 // j - стартовая позиция указателя
     //CharOID:=ReadD(j);   // -- OID перса
     //TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     text:=ReadS(j);    //-- считываем текст сообщения
     if (text='рес') then begin
        idtelasmerti:=pck[2]+pck[3]+pck[4]+pck[5]; //вычисление айди того, кто просит рес, то есть он труп
        buf:=HStr('04 ') + idtelasmerti;  //наведение таргета на этот труп. палевно, так как я не указал координаты трупа, но зато работает.
        SendToServer;
        rabota:='resurect';
     end
     else begin
        if (text='хил') then begin 
           rabota:='heal';
        end;
        if (text='стоп') then begin 
           rabota:='';
        end;
        if (text='офф') then begin 
           rabota:='';
           Timer01.enabled:=false;
           buf:=HStr('46');  //рестарт
           SendToServer;
        end;
     end;
  end;

кусочек кода из моего проекта.