Заполнить TStringList из нескольких файлов

TStringList *Lst = new TStringList;
for(int i = 0; i < List->Count; i++)   //Бежим по всем выбранным файлам
      {
    Lst->LoadFromFile(List->Strings[i]+".txt");
}

TStringList *TempLst = new TStringList;
TStringList *Lst = new TStringList;
for(int i = 0; i < ListFiles->Count; i++)   //Бежим по всем выбранным файлам
      {
    TempLst->LoadFromFile(ListFiles->Strings[i]+".txt"); //Записываем в массив строк содержимое файла
    
for(int i=0;i<TempLst->Count;i++)
            {
             Lst->Add(Lst->Strings[i]);   //Пишем в наш НОВЫЙ массив строки из нашего временного массива
         }
}

TStringList *TempLst = new TStringList;
TStringList *Lst = new TStringList;
for(int i = 0; i < ListFiles->Count; i++)   //Бежим по всем выбранным файлам
{
    TempLst->LoadFromFile(ListFiles->Strings[i]+".txt"); //Записываем в массив строк содержимое файла
    Lst->AddStrings(TempLst);   //Пишем в наш НОВЫЙ массив строки из нашего временного массива
}

    TStringList *Lst = new TStringList;
    for(int i = 0; i < ListFiles->Count; i++)
    {
        Lst->AddStrings(TFile::ReadAllLines(ListFiles->Strings[i] + ".txt"));
    }