uses sysutils,classes;
begin
   while Engine.Status = lsOnline do begin
      if (ChatMessage.ChatType = ctParty) and ChatMessage.Unread then //непрочитанное сообщение тип чата mtPrivate=ПМ mtParty  mtAll=белый
      begin
      if pos('pow',ChatMessage.Text)>0 then
      begin
      engine.SetTarget(ChatMessage.Sender); // Берет в таргет кто написал "pow"
      engine.useskill(1355); // ID скилла
      end;
      end;
    delay(2000);
   end;
end.