Cette fonction permet de rechercher l'élément suivant dans un répertoire contenant des fichiers et répertoires.
Function FindNext(var F: TSearchRec): Integer;