RegExp - найти ошибку в коде

void __fastcall TForm1::Button7Click(TObject *Sender)
{
TStringList* List=new TStringList;  TRegExpr* RegExp=new TRegExpr;
List->Text=Memo1->Lines->Text;
for(int i=0; i<List->Count;i++)
{
 RegExp->InputString=List->Strings[i];
 RegExp->Expression="(<a href=\"|<sup id=\")(.*?)(\">)";
 if(RegExp->Exec(RegExp->InputString))
  {
   List->Strings[i]=RegExp->Replace(RegExp->Expression,"");
  }
}
Memo1->Lines->Text=List->Text;
}

<(p|li)>([\\s0-9а-яА-Я]|<a |<b>|<i>|<b>)(.*?)</\\1>

//  xmlSetProp создает либо меняет значение атрибута
        xmlSetProp(cur_node, (const xmlChar *)"onload", (const xmlChar*)"alert('Hello libXML!');");

{ 
TRegExpr *Reg = new TRegExpr;     TStringList *List = new TStringList;
TStringList *Listok = new TStringList;
Listok->Text=Memo1->Lines->Text;
//Reg->ModifierM = true;
Reg->InputString=Listok->Text;
Reg->Expression="({/\\*(.*?)\\*/(.*?)\\})";
Reg->Compile();
//for(int i=0;i<3;++i)
if(Reg->Exec(Reg->InputString))
    {
        do
        {
            List->Add(Reg->Match[3]);
        }
        while (Reg->ExecNext());
    }
 Memo3->Text=List->Text;
 delete Reg;
 delete List;
 delete Listok;
}

Reg->ModifierM = true;
Reg->Expression = "((\\S)*?({(\\s*)/\\*(.*?)\\*/(.*?)\\}))";
Reg->Compile();
 
if(Reg->Exec(Reg->InputString))
{
    do
    {
        List->Add(Reg->Match[6]);
    }
    while (Reg->ExecNext());
}
Memo3->Text=List->Text;

TRegExpr *Reg = new TRegExpr;
TStringList* Text=new TStringList;
TStringList* Tmp=new TStringList;
Text->LoadFromFile(ExtractFileDir(Application->ExeName)+"\\t.txt");
Reg->ModifierM = true;
Reg->InputString=Text->Text;
Reg->Expression = "(\\{T\\}(.*?)\\{/T\\})";
Reg->Compile();
if(Reg->Exec(Reg->InputString))
do
{
    Tmp->Text=Reg->Match[0];
    Text->Text=StringReplace(Text->Text, Reg->Match[1], Reg->Match[2], TReplaceFlags() << rfIgnoreCase << rfIgnoreCase); 
}
while(Reg->ExecNext());
 
Reg->Expression ="(\\{M\\}(.*?)\\{/M\\})|(\\{P\\}(.*?)\\{/P\\})";
Reg->Compile();
if(Reg->Exec(Reg->InputString))
{
    Text->Text = Reg->Replace(Reg->InputString,"", false);
}
Reg->Free();
Text->SaveToFile(ExtractFileDir(Application->ExeName)+"\\t_new.txt");
Text->Free();

if(Reg->Exec(Reg->InputString))
do
{
    Tmp->Text=Reg->Match[0];
    Text->Text=StringReplace(Text->Text, Reg->Match[1], Reg->Match[2], TReplaceFlags() << rfIgnoreCase << rfIgnoreCase); //заменяем макросы;
}
while(Reg->ExecNext());

Reg->Expression ="(\\{M\\}(.*?)\\{/M\\})|(\\{P\\}(.*?)\\{/P\\})";
Reg->Compile();
if(Reg->Exec(Reg->InputString))
{
    Text->Text = Reg->Replace(Reg->InputString,"", false);
}