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

[-Guest_]

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

[volvo]

Специально для того, чтобы ты подумал, как этого избежать :D А о том, что директория тоже может иметь расширение, ты не подумал?
Я вот об этом:

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