Поиск в TMemo и копирование в Memo2

int pos = Memo1->Text.Pos("7777");
AnsiString str = ExtractString(Memo1->Text,pos-1,4);
Memo2->Lines->Add(str);

int pos = Memo1->Text.Pos("7777");
AnsiString str = Memo1->Text.SubString(pos-1,4);
Memo2->Lines->Add(str);

AnsiString slovo = Edit1->Text;
AnsiString txt = Memo1->Text;
AnsiString sub_str;
int txt_len = txt.Length();
int slovo_len = slovo.Length();
int slovo_pos = txt.Pos(slovo);
int i;
 
for (i=1;i<=txt_len;i++) {
  if (slovo_pos) {
    sub_str = txt.SubString(slovo_pos,slovo_len);
    Memo2->Lines->Add(sub_str); 
  }
  else {
    ShowMessage("Нет такого слова, дружок...");
  }
}

// присваиваем переменной текст эдита
AnsiString slovo = Edit1->Text;
// присваиваем переменной текст мемо
AnsiString txt = Memo1->Text;
// определяем переменную типа стринг
AnsiString sub_str;
// присваиваем числовой переменной значение длины текста в мемо
int txt_len = txt.Length();
// присваиваем числовой переменной значение длины текста в эдит
int slovo_len = slovo.Length();
// приваиваем числовой переменной индекс первого символа исковой строки
int slovo_pos = txt.Pos(slovo);
int i;
// в цикле перебираем все символы в тексте мемо
for (i=1;i<=txt_len;i++) {
// если нашли вхождение искомого слова
  if (slovo_pos) {
// извлекаем это слово во временную строку 
    sub_str = txt.SubString(slovo_pos,slovo_len);
// заносим временную строку в мемо
    Memo2->Lines->Add(sub_str); 
  }
// если искомого слова в тексте нет
  else {
// сообщаеи пользователю эту приятную новость
    ShowMessage("Нет такого слова, дружок...");
  }
}

Memo->Count

Memo2->Lines-Add(Memo1->Strings[i])

String finde=Edit1->Text;
 
   for(int i=0;i<Memo1->Lines->Count;i++)
   {
      if(Memo1->Lines->Strings[i].Pos(finde))
      {
         Edit2->Text=Memo1->Lines->Strings[i];
      }
   }