comment utiliser la procédure sort pour trier les items d'un objet Tlist?