Сортировка строк в memo по датам

int __fastcall DoCompareDates(TStringList *List, int Index1, int Index2)
{
    int Day, Month, Year;
    TDate first, second;
    swscanf(List->Strings[Index1].c_str(), L"%d.%d.%d", &Day, &Month, &Year);
    first = EncodeDate(Year, Month, Day);
    swscanf(List->Strings[Index2].c_str(), L"%d.%d.%d", &Day, &Month, &Year);
    second = EncodeDate(Year, Month, Day);
    return CompareDate(first, second); // #include <DateUtils.hpp>
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList>list(new TStringList); // #include <memory>
    list->AddStrings(Memo1->Lines);
    list->CustomSort(DoCompareDates);
    Memo1->Lines->Assign(list.get());
}

#define STARTNUMCOL 1 // С какого номера отсчитывать столбцы
                      // То есть самый левый столбец имет номер STARTNUMCOL
 
char delim = ';';   // К примеру
int numCol = 1;     //   глобальные
 
//---------------------------------------------------------------------------
String GetSubstrInCol( String inStr, const char *delim, int numCol ) // Рекурсивная функция поиска подстроки
{                                                                    // Шинкует строку по разделителю numCol раз
if( numCol <= STARTNUMCOL )     // Если тот самый столбец
  {                             //
  return inStr.SubString(       ///////////// Вернуть кусок стрки до разделителя
                         0,
                         inStr.Pos( delim ) - 1
                         );
  }
else                            // Если нет
  {                             //////////////
  return GetSubstrInCol( inStr.SubString(   // Передать в себя же без куска строки до разделителя
                                         inStr.Pos( delim ) + 1,
                                         inStr.Length()
                                         ), //
                         delim,             // Передать разделитель дальше
                         --numCol );        // Уменьшить номер текущего столбца
  }
}
//---------------------------------------------------------------------------
int __fastcall HowToSort( TStringList *sl, int numStr1, int numStr2 ) // Функция, задающая правило как сортировать
/* 1. Если строка с индексом numStr1 должна расположиться выше строки с индексом
   numStr2, то функция должна вернуть значение меньшее нуля.
   2. Если строка с индексом numStr1 должна расположиться ниже строки с индексом
   numStr2, то функция должна вернуть значение большее нуля.
   3. Если принято решение, что строки с индексами numStr1 и numStr2 равны, то функция
   должна вернуть значение равное нулю. */
{
if( GetSubstrInCol( sl->Strings[numStr1], &delim, numCol ) <
    GetSubstrInCol( sl->Strings[numStr2], &delim, numCol )   )
    return -1;
else if (GetSubstrInCol( sl->Strings[numStr1], &delim, numCol ) >
         GetSubstrInCol( sl->Strings[numStr2], &delim, numCol )   )
         return 1;
else return 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
              // Изменяем как нам надо
delim = ';';  //  символ разделитель
numCol = 1;   //  и по которому столбцу сортируем
 
TStringList *sl = new TStringList;
sl->Text = Memo1->Text;
sl->Text = StringReplace( sl->Text,                    // Добавляем разделитель в конец каждой строки
                          "\r\n",                      //  для унификации функции поиска подстроки
                          String( delim ) + "\r\n",
                          TReplaceFlags() << rfReplaceAll );
 
sl->Sorted = true;                  // Включаем сотрировку, чтобы работала следующая строка
sl->Duplicates = Types::dupIgnore;  // Отключаем добавление дубликатов при сортировке
                                      //// Но поскольку сортировка рукопашная, то работает нестабильно (! обратите внимание)
                                      //// Надо писать самим
sl->Sort();                           //// Но если сосем лень, то можно продублировать проход по списку штатными средствами
sl->Text = sl->Text;                  //// И вот такой некрасивый ход использовать
 
sl->Sorted = false;                   //// Ну и конечно отключить потом автоматическую сортировку
 
sl->CustomSort( HowToSort );        // Собственно сортируем
 
 
sl->Text = StringReplace( sl->Text,                    // Убираем обратно
                          String( delim ) + "\r\n",
                          "\r\n",
                          TReplaceFlags() << rfReplaceAll );
 
Memo1->Text = sl->Text; // Вывод
delete sl;
}