Поиск по всему тексту в Memo

//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
AnsiString sPoisk;  int p,len;
sPoisk=Trim(Edit1->Text); len=sPoisk.Length();
p=AnsiPos(sPoisk,Memo1->Text);//1- поиск вхождения подстроки  sPoisk в строку Memo1->Text
if (p>0)
        {// строка найдена
         Memo1->HideSelection=false;
         Memo1->SelStart=p-1;//2- установить курсор компонента Memo на начало
    //найденного фрагмента
         Memo1->SelLength=len; // 3-указать длину отмечаемого фрагмента
         MessageDlgPos( "Строка <"+sPoisk+">  найдена \nи окрашена в синий цвет",
                        mtInformation, TMsgDlgButtons()<<mbOK,0,95,175);
        }
    else
        {// строка не найдена
        MessageDlgPos("Строка <"+sPoisk+">  не найдена",mtInformation,
                  TMsgDlgButtons()<<mbOK,0,95,175);
               Memo1->HideSelection=true;
        }
}

void __fastcall TForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (MessageDlg("Выйти из приложения?", mtConfirmation,TMsgDlgButtons() << mbYes <<mbNo, 0) == mrYes )
 {
  Clear();
 }
}
//---------------------------------------------------------------------------

void __fastcall TForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    CanClose = (MessageDlg("Выйти из приложения?", mtConfirmation,TMsgDlgButtons() << mbYes <<mbNo, 0) == mrYes);
}