Поиск в текстовом редакторе

void __fastcall TMainWindow::MFindClick(TObject *Sender) //действие по нажатию на кнопку поика
{
/* начальное значение текста поиска - текст, выделенный в
   RichEdit1 */
  FindDialog1->FindText = RichEdit1->SelText;
  FindDialog1->Execute();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainWindow::FindDialog1Find(TObject *Sender) //диалог поиска.находится на панели в Dialogs
{
  int FoundAt, StartPos, ToEnd;
  TSearchTypes Option;
  TReplaceDialog *dlg = (TReplaceDialog *)Sender;
 
/* если было выделение, то поиск идет начиная с его
   последнего символа, иначе - с позиции курсора */
  StartPos = RichEdit1->SelStart;
  if (RichEdit1->SelLength)
    StartPos += RichEdit1->SelLength;
 
/* ToEnd - длина текста, начиная с первой позиции поиска
   и до конца */
  ToEnd = RichEdit1->Text.Length() - StartPos;
 
/* поиск целого слова или нет в зависимости от установки
   пользователя */
 
  if (dlg->Options.Contains(frWholeWord))
   Option << stWholeWord;
  else Option >> stWholeWord;
 
/* поиск с учетом или без учета регистра в зависимости от
   установки пользователя */
  if (dlg->Options.Contains(frMatchCase))
   Option << stMatchCase;
  else Option >> stMatchCase;
 
  FoundAt = RichEdit1->FindText(dlg->FindText,
                                StartPos, ToEnd, Option);
 
  if (FoundAt != -1) // если найдено
  {
    RichEdit1->SelStart = FoundAt;
    RichEdit1->SelLength = dlg->FindText.Length();
    if ((dlg->Name == "ReplaceDialog1")&&(dlg->Options.Contains(frReplaceAll)))
      ReplaceDialog1Replace(Sender);
}
  else ShowMessage("Текст '" + dlg->FindText +
                   "' не найден");
    RichEdit1->SetFocus();
}