» поиск ПАПОК в Delphi

Не подскажете, как произвести поиск ПАПОК в Delphi
Надо чтобы программа начиная с указанного каталога выдала список всех вложенных папок, причем, не на один уровень, а до самого "дна"...
Не подскажите как такое сделать?

В WinAPI есть такая функция FindFirstFileEx
чтобы задать поиск только папок смотри параметр FINDEX_SEARCH_OPS fSearchOp - включает флаг FindExSearchLimitToDirecrtories

а чтобы "до самого дна" - юзай рекурсию по уже найденным папкам ...

З.Ы. - если туго с WinAPI - юзай FindFirst/FindNext - в атрибутах выставь faDirectory - и опять же рекурсия

ZiLot посмотри данный сабж