Uso TList / TObjectList e TStringList (com objetos associados) para várias tarefas, como estão, ou como base para estruturas mais complexas. Embora a funcionalidade de classificação geralmente seja boa o suficiente, às vezes eu preciso fazer umestábul sort e as duas listas usam quicksor

Qual é a maneira mais fácil de implementar a classificação estável para TList e / ou TStringList? Preciso escrever minha própria rotina de classificação ou pode ser feito usando algum truque inteligente com TStringListSortCompare / TListSortCompare?