Простой способ добавить стабильную сортировку к TList и TStringList

Я использую TList / TObjectList и TStringList (со связанными объектами) для множества задач, либо как есть, либо в качестве основы для более сложных структур. Хотя функции сортировки обычно достаточно хороши, иногда мне нужно выполнить стабильную сортировку, и оба списка используют быструю сортировку.

Как проще всего реализовать стабильную сортировку для TList и / или TStringList? Нужно ли мне писать свою собственную процедуру сортировки, или это можно сделать, используя какой-нибудь хитрый трюк с TStringListSortCompare / TListSortCompare?