Несколько масок и замена слов

std::auto_ptr<TStringList> L(new TStringList);
TStringDynArray list = TDirectory::GetFiles(ExtractFilePath(ParamStr(0)),
"PROT43_R.*", TSearchOption::soAllDirectories);
String aS[29];
for(int i = 0; i < list.Length; i++)
{L->LoadFromFile(list[i]);
aS[0] = L->Strings[21].Trim().SubString(48, L->Strings[40].Pos(":") + 11);
aS[1] = L->Strings[21].Trim().SubString(33, L->Strings[45].Pos(" файл") + 9);
aS[2] = L->Strings[11].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[3] = L->Strings[12].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[4] = L->Strings[13].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[5] = L->Strings[14].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[6] = L->Strings[15].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[7] = L->Strings[16].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[8] = L->Strings[17].Trim().SubString(1, L->Strings[26].Pos(" ") + 14);
aS[9] = L->Strings[25].Trim();
aS[10] = L->Strings[26].Trim();
aS[11] = L->Strings[27].Trim();
aS[12] = L->Strings[28].Trim();
aS[13] = L->Strings[29].Trim();
aS[14] = L->Strings[30].Trim();
aS[15] = L->Strings[33].Trim();
aS[16] = L->Strings[40].Trim();
aS[17] = L->Strings[41].Trim();
aS[18] = L->Strings[42].Trim();
aS[19] = L->Strings[43].Trim();
aS[20] = L->Strings[44].Trim();
aS[21] = L->Strings[45].Trim().SubString(56, L->Strings[45].Pos("=") + 17);
aS[22] = L->Strings[46].Trim().SubString(56, L->Strings[45].Pos("=") + 17);
aS[23] = L->Strings[47].Trim().SubString(56, L->Strings[45].Pos("=") + 17);
aS[24] = L->Strings[48].Trim().SubString(56, L->Strings[45].Pos("=") + 17);
aS[25] = L->Strings[49].Trim().SubString(56, L->Strings[45].Pos("=") + 17);
aS[26] = L->Strings[51].Trim().SubString(29, L->Strings[45].Pos("-") + 9);
aS[27] = L->Strings[21].Trim().SubString(61, L->Strings[44].Pos("в") + 13);
aS[28] = L->Strings[21].Trim().SubString(79, L->Strings[44].Pos("в") + 13);
Memo1->Lines->Add(String().sprintf(L"%s     %s %s %s        %s            %s     %s      %s      %s      %s      %s           %s           %s           %s                %s               %s               %s                                   %s                                              %s                                              %s                                              %s                                              %s                                              %s                                                     %s                                                      %s                                          %s                                          %s            %s                   %s ",
aS[1], aS[0], aS[27], aS[28], aS[2], aS[3], aS[4], aS[5], aS[6], aS[7], aS[8], aS[9], aS[10], aS[11],
aS[12], aS[13], aS[14], aS[15], aS[16], aS[17], aS[18], aS[19], aS[20], aS[21],
aS[22], aS[23], aS[24], aS[25], aS[26]));}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->SaveToFile("PROT43_R.SM");
}

std::auto_ptr<TStringList> L (new TStringList);
std::auto_ptr<TStringList> Mask (new TStringList);
Mask->CommaText = "*.tx*,*.mp*";
for(int i = 0; i < Mask->Count; i++)
 {
    TStringDynArray List = TDirectory::GetFiles(ExtractFilePath(ParamStr(0)), Mask->Strings[i], TSearchOption::soAllDirectories);
    L->AddStrings(List);
  }