Как рекурсивно вывести список всех файлов и катало, помогите примером.....?? Опции

[-Guest_]

Подскажите как через FindFirst и FindNext можно рекурсивно вывести список всех файлов директорий и поддиректорий?
Может есть какой-либо примерчик?
Пользовался уже поиском но толку он не дал, мне нужен маленький пример на Дельфи, а все здешние примеры используют модуль Dos, которого нет в Дельфи...
Может подскажите чего??

[Guest]

кстати, по-моему у этого кода есть некоторый баг, если файлы разбросаны так:

Код

c:\test\
c:\test\test.txt
c:\test\test2\
c:\test\test2\test.htm

и выполнить поиск по маске: *.htm, код прервется на первой директории т.к. такого файла там нет (и проигнорирует тот факт, что он возможно есть на дальнейших уровнях)