Как из Memo считать все слова в массив?

AsiString text = Memo->Text;

for (int i = 1; i < text.Length(); i++)
    //char a = text[i];
//Сюда нужно  text[i] сравнить с массивом русских слов из словаря rus.txt с целью узнать его порядковый номер
//сюда нужно загрузить массив слов из файла eng.txt
//а тут нужно индекс найденного слова из массива  rus.txt подставить в массив eng.txt
//если такой индекс есть то сформировать новый массив и внести слово после замены.
//вообщим машинный перевод дословно.

  AnsiString aSource=Memo1->Text;
 
    aSource=ReplaceStr(aSource, "ABRA", "CADABRA");
 
 Memo2->Text=aSource;

  TStringList *rus = new TStringList;
  TStringList *eng = new TStringList;
 
   Memo1->Lines->LoadFromFile("d:\\source.txt");
   rus->LoadFromFile("rus.txt"); //оба файла должны иметь одинаковое кол-во строк
   eng->LoadFromFile("eng.txt");
 
  AnsiString aSource=Memo1->Text;
 
   for(int i=0; i<rus->Count; i++)
    aSource=ReplaceStr(aSource, rus[i], eng[i]);
 
  Memo2->Text=aSource;  
 
  delete eng;
  delete rus;

aSource=ReplaceStr(aSource.LowerCase(), rus[i], eng[i]); //в словарях все слова из прописных букв

#include <System.RegularExpressions.hpp>
#include <System.IOUtils.hpp>
 
// ...
 
TStringList *ru, *en;
 
String __fastcall TForm1::DoReplace(const TMatch &Match) // Заголовок добавить в класс формы
{
    TMatch m(Match);
    String s = AnsiLowerCase(m.Value);
 
    int ix = ru->IndexOf(s);
    if (ix != -1)
        s = en->Strings[ix];
    if (AnsiLowerCase(m.Value) != m.Value)
        s[1] = UpCase(s[1]);
    return s;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    en = new TStringList;
    en->LoadFromFile(ExtractFilePath(ParamStr(0)) + "eng.txt");
    ru = new TStringList;
    ru->LoadFromFile(ExtractFilePath(ParamStr(0)) + "rus.txt");
 
    String s = TFile::ReadAllText(ExtractFilePath(ParamStr(0)) + "text.txt", TEncoding::UTF8);
    s = TRegEx::Replace(s, L"[а-яА-Я]+", DoReplace, TRegExOptions() << roSingleLine);
    ShowMessage(s);
 
    delete ru;
    delete en;
}

    String __fastcall TForm1::DoReplace(const TMatch &Match) // Заголовок добавить в класс формы

String s = TFile::ReadAllText(ExtractFilePath(ParamStr(0)) + "text.txt", TEncoding::UTF8);