Применение регулярных выражений для парсинга email-ов получателей из emf-файла

Если регулярное выражение используется для замены текста, то результатом работы будет новая текстовая строка,
Не нужная строка "текст", "Текст"...
представляющая из себя исходный текст, из которого удалены найденные подстроки (сопоставленные образцу), а вместо них подставлены строки замены (возможно, модифицированные запомненными при разборе группами символов из исходного 
нужная строка "текст2", "Текст2"...
какой-то текст "Текст2"
какой-то текст "текст2"
 
текста). Частным случаем модификации текста является удаление всех вхождений найденного образца — для чего строка замены указывается пустой.
Не нужная строка "текст3", "Текст3"...

    if(FindFirst(s_Dir+"*.eml", faAnyFile, sr)==0)   
    {
        do{
            if(!(sr.Name=="."||sr.Name=="..")){
                //int fsize = sr.Size;
                if(sr.Size > 0){
                    int atr = FileGetAttr(s_Dir+sr.Name.c_str());
                    if(atr & faHidden){}
                    else{
                        ReadedFrom="";
                        ReadedTo="";
                        ReadedData="";
                        ReadedTime="";
                        TStringList* list = new TStringList;  
                        list->LoadFromFile(s_Dir+sr.Name.c_str()); 
                        int count_string = 0; 
                        while (count_string<list->Count-1){
                            if(list->Strings[count_string].Pos("Date")>0&&list->Strings[count_string].Pos("Date")<2) {
                                re->Expression = L"((\\d+)\\s(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\\s(\\d+))";
                                re->Compile();
                                String s = list->Strings[count_string];
                                if(re->Exec(s)){
                                    TFormatSettings fs = TFormatSettings::Create("en-US");
                                    ReadedData = String().sprintf(L"%s-%02d-%02d", re->Match[4], IndexStr(re->Match[3], fs.ShortMonthNames, 11) + 1, re->Match[2].ToInt());
 
                                }
                                 re->Expression = L"\\d+\\S\\d+\\S\\d+";
                                 re->Compile();
                                 if(re->Exec(s)){
                                    ReadedTime=re->Match[0];
                                }
                            }
                            if(list->Strings[count_string].Pos("From")>0&&list->Strings[count_string].Pos("From")<2) {
                                re->Expression = L"(([A-Za-z0-9_-]+\\\.)*[A-Za-z0-9_-]+@[A-Za-z0-9_-]+(\\\.[A-Za-z0-9_-]+)*\\\.[A-Za-z]{2,6})";
                                re->Compile();
                                String s = list->Strings[count_string];
                                if(re->Exec(s))
                                    ReadedFrom=re->Match[1];
                            }
                            count_string++;
                        }
    std::auto_ptr<TRegExpr> rex (new TRegExpr);
    std::auto_ptr<TStringList>lst(new TStringList);
    String flag="";
    int tmp_c=0;
    lst->LoadFromFile(s_Dir+sr.Name.c_str());
 
    while (tmp_c<lst->Count-1){
        if(lst->Strings[tmp_c].Pos("To")>0&&lst->Strings[tmp_c].Pos("To")<2) {
        break;
        }
        tmp_c++;
        }
        rex->Expression = L"(([A-Za-z0-9_-]+\\\.)*[A-Za-z0-9_-]+@[A-Za-z0-9_-]+(\\\.[A-Za-z0-9_-]+)*\\\.[A-Za-z]{2,6})";
        rex->Compile();
        metka:
            if(rex->Exec(lst->Strings[tmp_c]))
                do  {
                    flag=rex->Match[0];
                    if(flag!=NULL){
                    ReadedTo+=flag+", ";
                    if(lst->Strings[tmp_c+1].Pos("Message-ID:")>0||lst->Strings[tmp_c+1].Pos("Message-ID:")>0||lst->Strings[tmp_c+1].Pos("From:")>0||lst->Strings[tmp_c+1].Pos("Reply-to:")>0)
                    break;
                    tmp_c++;
                    goto metka;
                    }
                    else
                    break;
    }
    while(rex->ExecNext());
                        ReadedTo=StringReplace(ReadedTo,"<","", TReplaceFlags()<<rfReplaceAll);
                        ReadedTo=StringReplace(ReadedTo,">","", TReplaceFlags()<<rfReplaceAll);
                        ReadedFrom=StringReplace(ReadedFrom,"<","", TReplaceFlags()<<rfReplaceAll);
                        ReadedFrom=StringReplace(ReadedFrom,">","", TReplaceFlags()<<rfReplaceAll);
                        ReadedTo.Delete(ReadedTo.Length(),1);
                        ReadedTo.Delete(ReadedTo.Length(),1);

#include <System.IOUtils.hpp>
 
// ...
 
int ix = -1;
String st[3] = {L"раз", L"два", L"три"}; // замены
 
// не забудь объявить прототип в классе формы
String __fastcall TForm1::myReplaceFunc(TRegExpr *re)
{
    return st[++index];
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TRegExpr>re(new TRegExpr);
    re->Expression = L"\\[слово\\d\\]";
    TFile::WriteAllText("output.txt", re->ReplaceEx(TFile::ReadAllText("input.txt"), myReplaceFunc));
}