Поиск в RichEdit

TSearchTypes Stype;
 Stype=Stype<< stMatchCase;
String Text=(AnsiString("Если:")+ AnsiString(RichEdit3->Text)+AnsiString("Тогда:"));
 int start=0,stop=0;
 
 for(;start>=0;)
 {
 start = RichEdit2->FindText(Text,start+stop,RichEdit2->Text.Length(),Stype);
 stop  = Text.Length();
 
 RichEdit2->SelStart=start;
 RichEdit2->SelLength=stop;
 
   RichEdit2->SelAttributes->Style<<fsBold;
 RichEdit2->SelAttributes->Color=clBlue;
 }

//-------------------------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FindDialog1->Position = Point(RichEdit1->Left + RichEdit1->Width, RichEdit1->Top);
  FindDialog1->Execute();
}
//------------------------------------------------------------------------------------------- 
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes mySearchTypes = TSearchTypes();
  // Begin the search after the current selection,
  // if there is one.
  // Otherwise, begin at the start of the text.
  if (FindDialog1->Options.Contains(frMatchCase))
        mySearchTypes << stMatchCase;
  if (FindDialog1->Options.Contains(frWholeWord))
        mySearchTypes << stWholeWord;
  if (RichEdit1->SelLength)
        StartPos = RichEdit1->SelStart + RichEdit1->SelLength;
  else
        StartPos = 0;
  // ToEnd is the length from StartPos
  // to the end of the text in the rich edit control.
  ToEnd = RichEdit1->Text.Length() - StartPos;
  FoundAt = RichEdit1->FindText(FindDialog1->FindText, StartPos, ToEnd, mySearchTypes);
  if (FoundAt != -1)
  {
        RichEdit1->SetFocus();
        RichEdit1->SelStart = FoundAt;
        RichEdit1->SelLength = FindDialog1->FindText.Length();
  }
  else Beep();
}
//------------------------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  RichEdit1->PlainText = False;
  RichEdit1->Lines->LoadFromFile("../Overview.RTF");  // Starts in Debug.
  RichEdit1->ScrollBars = ssVertical;
}