procedure FindAllDirectories(AList: TStrings; const SearchPath: String; SearchSubDirs: Boolean)
Ищет каталоги по указанному пути.
Параметры:
AList - существующий список строк, куда будут добавлены полные пути найденных каталогов.
SearchPath - путь для поиска.
SearchSubDirs - искать во вложенных каталогах.