El método Sort de los TStringList es muy eficiente y funciona bastante bien.
żCual es el problema?
Si lo quieres ordenado ascendente recorre la lista desde 0 hasta (Count-1)
Si la quieres descendente recorrela desde (count-1) hasta 0
Tal vez no he entendido el problema...
