procedure FindAllDirectories(AList: TStrings; const SearchPath: String; SearchSubDirs: Boolean)  

Ищет каталоги по указанному пути.

Параметры:

• AList - существующий список строк, куда будут добавлены полные пути найденных каталогов.
• SearchPath - путь для поиска.
• SearchSubDirs - искать во вложенных каталогах.