Разбор html файла

//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TStringList * InList = new TStringList;
TStringList * OutList = new TStringList;
InList->LoadFromFile("in.txt");
InList->Text = StringReplace(InList->Text,"</h2>","",TReplaceFlags() <<rfReplaceAll);
for(int i = 0; i < InList->Count; i++)
{
if(InList->Strings[i].Pos("<h2>")!=0)
 OutList->Add(InList->Strings[i].SubString(InList->Strings[i].Pos("<h2>")+4,InList->Strings[i].Length())   );
}
ShowMessage(OutList->Text);
}
//---------------------------------------------------------------------------

#include <System.IOUtils.hpp>
#include "RegExpr.hpp"
 
// ...
 
    std::auto_ptr<TRegExpr>re(new TRegExpr);
    re->Expression = L"<h2>(.*?)</h2>";
 
    re->Compile();
    std::auto_ptr<TStringList> lst(new TStringList);
    if (re->Exec(TFile::ReadAllText(ExtractFilePath(ParamStr(0)) + "test.html", TEncoding::UTF8)))
    do
    {
         lst->Add(re->Match[1]);
    } while (re->ExecNext());
    lst->SaveToFile(ExtractFilePath(ParamStr(0)) + "result.txt", TEncoding::UTF8);