Поиск в текстовом файле

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Word="слово";
 
for(int i=0; i<Memo1->Lines->Count; i++)
    {
     if(Memo1->Lines->Strings[i] == Word )
        {
         ShowMessage("Слово находится в строке № "+String(i) );
         break;
        }
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Word="слово";
 
int position = Memo1->Text.Pos(Word);
 
ShowMessage(position);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Word="слово";
 
TStringList *SL= new TStringList;
SL->Assign(Memo1->Lines);
 
int position=0;
 
SL->Sort();
Memo1->Lines->Assign(SL);
 
SL->Find(Word,position);
 
ShowMessage(position);
 
delete SL;
}
//---------------------------------------------------------------------------