Парсер, поиск непосредственно после найденного

    std::auto_ptr<TStringStream> ss (new TStringStream("", TEncoding::GetEncoding(1251), true));
    IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/", ss.get());
    String One = ss->DataString;
 
    std::auto_ptr<TRegExpr> re (new TRegExpr);
    re->InputString = One;
    re->ModifierM = true;
    re->Expression = L"<div class=\"td[lr]\">(.*?)</div>";
    re->Compile();
    if(re->Exec(re->InputString))
    {
        do
        {
            Memo2->Lines->Add(re->Match[1]);
        }
        while(re->ExecNext());
    }

 std::auto_ptr<TStringStream> ss (new TStringStream("", TEncoding::GetEncoding(1251), true));
 IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/", ss.get());
 
 String One = ss->DataString;
 String expr = L"<div class=\"td[lr]\">(.*?)</div>";
 
 TRegExOptions reg_opt = TRegExOptions() << roIgnoreCase << roMultiLine;
 TMatchCollection m;
 
 if (TRegEx::IsMatch(One, expr, reg_opt))
 {
  m = TRegEx::Matches(One, expr, reg_opt);
 
  Memo1->Clear();
  for (int i=0; i<m.Count; i++)
   for (int j=1; j<m.Item[i].Groups.Count; j++)
    Memo1->Lines->Add(m.Item[i].Groups[j].Value);
 }

    std::auto_ptr<TStringStream>ss(new TStringStream("", TEncoding::GetEncoding(1251), true));
    IdHTTP1->Get("http://www.xn--c1adahg2atfb8hee9d.xn--p1ai/", ss.get());
 
    String One = ss->DataString;
    TRegEx re(L"<div class=\"td[lr]\">(.*?)</div>", TRegExOptions() << roIgnoreCase << roMultiLine);
 
    for (TMatch match = re.Match(One); match.Success; match = match.NextMatch())
        Memo2->Lines->Add(match.Groups[1].Value);