[Neftali [Germán.Estévez]]

En el truco número 15 (sección de trucos del club) y en sus comentarios tienes una función que a partir de un directorio y de forma recursiva te rellena un TStrings con todos los nombres de ficheros. Supongo que si modificas los atributos, puedes conseguir que además almacene los nombres de los directorios.

Código Delphi [-]
{: Devuelve una lista de nombres de fichero encontrados a partir de la
     carpeta inicial StartDir, que cumplen el patrón especificado por
     FileMask.Mediante recursively se indica si se desea hacer la busqueda 
     en los subdirectorios.
 StartDir     Carpeta desde la que empezar a buscar.
 FileMask    Patrón que han de cumplir los ficheros.
 Recursively Si hay que continuar la búsqueda en los subdirectorios.
    FilesList    Lista con los nombres de fichero encontrados.
  }
  procedure FindFiles(StartDir, FileMask: string; recursively: boolean; var FilesList: TStringList)