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

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

Много не нужного текста
To: не нужный текст <mail1@mail.ru>,
не нужный текст <mail2@mail.ru>,
не нужный текст <mail3@mail.ru>,
Ну и так далее не предсказуемое количество раз....
И далее опять не нужный текст

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TRegExpr>re(new TRegExpr);
    re->Expression = L"(<((\\w+@\\w+\\.\\w+)*)>)";
 
    re->Compile();
    std::auto_ptr<TStringList> lst(new TStringList);
    if (re->Exec(Memo4->Text)) // Отсюда я брал тот текст, который был приведен выше
    do
    {
         lst->Add(re->Match[1]);
    } while (re->ExecNext());
    ShowMessage(lst->CommaText);
}

Много не нужного тут могут быть ненужные адреса <не@нужный.адрес>текста
To: не нужный текст <mail1@mail.ru>,
не нужный текст <mail2@mail.ru>,
не нужный текст <mail3@mail.ru>,
Ну и так далее не предсказуемое количество раз....
И далее опять не нужный текст

Delivered-To: [email]test@mail.ru[/email]
Return-path: <return@mail.ru>
Received: from [126.15.19.116] (port=6010 helo=[192.168.1.113])
    by smtp22.mail.ru with esmtpa (envelope-from <return@mail.ru>)
    id 1bDcmY-0003Yh-Bq; Thu, 16 Jun 2016 22:16:50 +0300
To: =?UTF-8?B?0JDQvdC00YDQtdC5?= <test@mail.ru>, 
"Support" <shadow_test@mail.ru>,
 "OK.ru Customer Support" <logins@odnoklassniki.ru>
From: =?UTF-8?B?0KLQtdGB0YLQvtCy0L7QtSDRgdC+0L7QsdGJ0LXQvdC40LU=?= <return.ru>
Subject: =?UTF-8?B?0KLQtdGB0YLQvtCy0L7QtSDRgdC+0L7QsdGJ0LXQvdC40LU=?=
Message-ID: <5763420.1061203@mail.ru>
Date: Thu, 16 Jun 2016 22:16:48 +0300
User-Agent: Mozilla/5.0 (Windows NT 10.0; rv:38.0) Gecko/20100101
 Thunderbird/40.2.1
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Mras: OK
 
Lorem ipsum dolor sit amet, consectetur adipisicing elit. Vitae sit ab, 
laudantium deserunt laborum magnam dolore optio ex iure mollitia eius 
c......

L"(<((\\w+@\\w+\\.\\w+)*)>)"

<(([a-z0-9_-]+\\\.)*[a-z0-9_-]+@[a-z0-9_-]+(\\\.[a-z0-9_-]+)*\\\.[a-z]{2,6})>

lst->Add(re->Match[1]);

re->Match[1]

    String email = L"(<[^>]*>)";
    String toAddresses;
 
    std::auto_ptr<TRegExpr>re(new TRegExpr);
    re->Expression = L"^To:(([^<]*(<[^>]*>))*\\r\\n)From:";
    re->ModifierM = true;
 
    if (re->Exec(Memo4->Text))
    {
        toAddresses = re->Match[1];
    }
 
    std::auto_ptr<TStringList>lst(new TStringList);
    // тут можно проверить, найдена ли строка toAddresses
    re->Expression = email;
    if (re->Exec(toAddresses))
        do
        {
            lst->Add(re->Match[1]);
        }
        while (re->ExecNext());
    ShowMessage(lst->CommaText);

if(list->Strings[count_string].Pos("To")>0&&list->Strings[count_string].Pos("To")<2) {
re->Expression = L"<(([a-z0-9_-]+\\\.)*[a-z0-9_-]+@[a-z0-9_-]+(\\\.[a-z0-9_-]+)*\\\.[a-z]{2,6})>";
re->Compile();
metka:
if(re->Exec(list->Strings[count_string]))
    do  {
        flag=re->Match[0];
        if(flag!=""){
            ReadedTo+=flag+", ";
            count_string++;
            goto metka;
            }
        }
        while(re->ExecNext());
    }
......
ReadedTo=StringReplace(ReadedTo,"<","", TReplaceFlags()<<rfReplaceAll);
ReadedTo=StringReplace(ReadedTo,">","", TReplaceFlags()<<rfReplaceAll);
ReadedTo.Delete(ReadedTo.Length(),1);
ReadedTo.Delete(ReadedTo.Length(),1);

String email = L"(<[^>]*>)";
String toAddresses;
std::auto_ptr<TRegExpr>re(new TRegExpr);
re->Expression = L"^To:(([^<]*(<[^>]*>))*\\r\\n)From:";
re->ModifierM = true;
    if (re->Exec(list->Text))
    {
        toAddresses = re->Match[1]; // это условие не выполняется
    }
    std::auto_ptr<TStringList>lst(new TStringList);
    // тут можно проверить, найдена ли строка toAddresses
    re->Expression = email;
    if (re->Exec(toAddresses))
        do
        {
            lst->Add(re->Match[1]); // и это условие не выполняется
        }
        while (re->ExecNext());
    ShowMessage(lst->CommaText);   // в итоге получаю пустой список

if (re->Exec(list->Text))
    {
        toAddresses = re->Match[1]; // это условие не выполняется
    }

String toAddresses;
std::auto_ptr<TRegExpr>re(new TRegExpr);
re->Expression = L"^To:(.*?)From:";
re->ModifierM = true;
if (re->Exec(Memo1->Lines->Text))
{
   toAddresses = re->Match[1];
}
std::auto_ptr<TStringList>lst(new TStringList);
// тут можно проверить, найдена ли строка toAddresses
re->Expression = L"([a-z0-9_-]+\\\.)*[a-z0-9_-]+@[a-z0-9_-]+(\\\.[a-z0-9_-]+)*\\\.[a-z]{2,6}";
if (re->Exec(toAddresses))
do
{
   lst->Add(re->Match[0]);
}
while (re->ExecNext());
//ShowMessage(lst->CommaText);
Memo1->Lines->Text = lst->Text;