Алгоритм проверки папок
 

Всем приветы!Давно ломаю голову... Как в Delphi проверить все папки, включая подпапки. Например есть Delphi, а в ней еще 10 папок а в них еще 10 и надо составитьб дерево каталогов без применения компонента, а скажем, с помощью FindFirst...Помогите плз...