كيف ابحث في سلسلة نصية عن نص مثلا

PHP كود :
var
  sMessage,TempMessage : String;   // متغيرات الرسالة
  i,i2 : Integer;                  // متغيرات الحلقات
  IsBadMessage : Boolean;          // متغير يشير لوجود كلمة سيئة
const
  BadMessage : array[0..2] of string = ('رجاء','أريـد','اريـد'); // this is bad words
begin
  IsBadMessage := False;           // إعطاء المتغير قيمة False
  sMessage := 'مرحباً , هي يوجد احد ؟ ... اريـد مساعـدة رجاء'; // This is a Message
  if IsBadMessage = False then     // إذا كان المتغير الذي يشير غلى الرسالة يساوي Flase
  begin
    for i := 1 to Length(sMessage) do         //  حلقة من 1 إلى عدد احرف الرسالة
    begin
      TempMessage := Copy(sMessage,i,4);      // انسخ اربعة احرف من الرسالة وضعها في المتغير TempMessage
      for i2 := 0 to Length(BadMessage) do    // حلقة البحث عن الكلمات السئية
      begin
        if TempMessage = BadMessage[i2] then  // يتأكد من مطابقة الاحرف المنسوخة من الرسالة بأ الكلمات السئبة
          IsBadMessage := True                // يعطي صحيحه اي انه وجد كلمة سئة في الرسالة
      end;
    end;
  end;
  if IsBadMessage = False then
  begin
    for i := 1 to Length(sMessage) do
    begin
      TempMessage := Copy(sMessage,i,3);      // انسخ ثلاثة احرف من الرسالة وضعها في المتغير TempMessage
      for i2 := 0 to Length(BadMessage) do
      begin
        if TempMessage = BadMessage[i2] then
          IsBadMessage := True
      end;
    end;
  end;
end;