Temas de Delphi - Buscando archivos recursivamente en el disco duro

Esta función que mostramos abajo recibe como parámetros una especificación de archivos (como por ejemplo C:\Mis Documentos\*.xls o C:\* si quiere buscar todos los archivos del disco duro) y opcionalmente un conjunto de atributos (exactamente como la función FindFirst de Delphi), y devuelve una StringList con los nombres y caminos completos de los ficheros encontrados. Debería liberar la StringList después de usarla.