Умный поиск папок

#include <System.IOUtils.hpp>
bool f(String const & a, String const & b)
{
    return StrToInt(ExtractFileName(a)) - StrToInt(ExtractFileName(b)) < 0;
}
 
void __fastcall TForm1::Button31Click(TObject *Sender)
{
    TStringDynArray list = TDirectory::GetDirectories(L"D:\\test\\Music\\Hip-Hop");
    std::sort(&list[0], &list[list.Length - 1] + 1, f); // иначе будет \1, \10, \11, ... и только потом \2, \3
 
    for (int i = 0; i < list.Length - 30; i++)
    {
        // Делай что хочешь с папками
        Memo1->Lines->Add(list[i]);
    }
}

#include <algorithm>    // std::set_union, std::sort, etc
#include <vector>       // std::vector
#include <math.h>

int __fastcall MySortCompare(TStringList* List, int Index1, int Index2)
{
 
      int Day, Month, Year;
    TDate first, second;
    sscanf(List->Strings[Index1].c_str(), "%d-%d-%d", &Month, &Day, &Year);
    first = EncodeDate(Year, Month, Day);
    sscanf(List->Strings[Index2].c_str(), "%d-%d-%d", &Month, &Day, &Year);
    second = EncodeDate(Year, Month, Day);
    return CompareDate(first, second); 
}

int __fastcall MySortCompare(TStringList* List, int Index1, int Index2)
{
    return CompareDate(StrToDate(List->Strings[Index1]), StrToDate(List->Strings[Index2]));
}

// но тогда вызывать нужно чуть-чуть по-другому:
    char ds = DateSeparator; // запоминаем текущий разделитель дат и подменяем на нужный
    DateSeparator = '-';
    String sdf = ShortDateFormat; // то же самое с текущим форматом ShortDate
    ShortDateFormat = "mm-dd-yyyy";
 
    L->CustomSort(MySortCompare); // собственно. сортировка
 
    DateSeparator = ds; // восстанавливаем прежние значения
    ShortDateFormat = sdf;