Utilise TSearchRec.Time, la fonction FileDateToDateTime va te le convertir au besoin, ajoute cette valeur via AddObject au lieu de Add
Puis appel CustomSort avec une procédure utilisant Object comme...