Строку AnsiString разбить по словам и засунуть в массив

AnsiString s= "Дед%Мазай%Любил%Больших%Девочек";

//создаем временный список для хранения адресов и псевдонимов
    TStringList *L = new TStringList;
    //загружаем список адресов интернет-ресурсов из файла
        String path_to_file = GetCurrentDir();
        path_to_file = path_to_file + "\" + "Urls.txt";
        L->LoadFromFile(path_to_file);
 
        //заполняем таблицу адресов и соответствий
        Tabl_Adres->RowCount = L->Count;
        for(int i = 0; i < L->Count; i++)
        {
                String s = L->Strings[i];
                Tabl_Adres->Rows[i]->CommaText = StringReplace(L->Strings[i], "\t", ",", TReplaceFlags() << rfReplaceAll);
        }
        delete L;
        //заполняем список выбора
        int count_rows_tabl = Tabl_Adres->RowCount;
        for(int row = 0; row < count_rows_tabl; row++)
        {
            String tmp_str = Tabl_Adres->Cells[1][row];
                List_URLs->Items->Add(tmp_str);
        }

#include <memory>
...
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  String s= "Дед%Мазай%Любил%Больших%Девочек";
  std::auto_ptr<TStringList> L (new TStringList);
  L->Delimiter = '%';
  L->DelimitedText = s;
  ShowMessage(L->Strings[2]);
}

  String s= "один%два%три четыре%пять";
  std::auto_ptr<TStringList> L (new TStringList);
  L->Delimiter = '%';
  L->StrictDelimiter = true;
  L->DelimitedText = s;
  ShowMessage(L->Strings[2]);