Очень долгое соединение объемных строк

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        String OutStr;
        String m1[9], m2[9], m3[9], m4[9], m5[9];
        TStringList *list1 = new TStringList;
        for(int i = 0; i < Memo1->Lines->Count; i++)
        {
                m1[i] = Memo1->Lines->Strings[i];
                m2[i] = Memo2->Lines->Strings[i];
                m3[i] = Memo3->Lines->Strings[i];
                m4[i] = Memo4->Lines->Strings[i];
                m5[i] = Memo5->Lines->Strings[i];
        }
 
        for(int j1 = 0; j1 < Memo1->Lines->Count; j1++)
        {
            for(int j2 = 0; j2 < Memo1->Lines->Count; j2++)
            {
                for(int j3 = 0; j3 < Memo1->Lines->Count; j3++)
                {
                    for(int j4 = 0; j4 < Memo1->Lines->Count; j4++)
                    {
                        for(int j5 = 0; j5 < Memo1->Lines->Count; j5++)
                        {
                                OutStr += m1[j1] + " " + m2[j2] + " " + m3[j3] + " " + m4[j4] + " " + m5[j5] + "\n";
                             //   ShowMessage(OutStr);
 
                        }
                    }
                }
            }
        }
        list1->Add(OutStr);
        list1->SaveToFile("C:\\log.txt");
        delete list1;
}

String OutStr = Memo1->Text+Memo2->Text+Memo3->Text+Memo4->Text+Memo5->Text;

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TStringList *list1 = new TStringList;
    TStringList *list2 = new TStringList;
    TStringList *list3 = new TStringList;
    TStringList *list4 = new TStringList;
    TStringList *list5 = new TStringList;
    TStringList *list6 = new TStringList;
 
    list1->AddStrings(Memo1->Lines);
    list2->AddStrings(Memo2->Lines);
    list3->AddStrings(Memo3->Lines);
    list4->AddStrings(Memo4->Lines);
    list5->AddStrings(Memo5->Lines);
 
 
    for(int j1 = 0; j1 < 10; j1++)
        for(int j2 = 0; j2 < 10; j2++)
            for(int j3 = 0; j3 < 10; j3++)
                for(int j4 = 0; j4 < 10; j4++)
                    for(int j5 = 0; j5 < 10; j5++)
                        list6->Add(list1->Strings[j1] + " " + list2->Strings[j2] + " " + list3->Strings[j3] + " " + list4->Strings[j4] + " " + list5->Strings[j5]);
 
    list6->SaveToFile("C:\\log.txt");;
 
    delete list1;
    delete list2;
    delete list3;
    delete list4;
    delete list5;
    delete list6;
}

OutStr += ...

    TStringList *list1 = new TStringList;
    TStringList *list2 = new TStringList;
    TStringList *list3 = new TStringList;
    TStringList *list4 = new TStringList;
    TStringList *list5 = new TStringList;
    TStringList *list6 = new TStringList;
 
    list1->AddStrings(Memo1->Lines);
    //....