Почему-то Delphi до сих пор не может поискать исходнички в подпапочках, так вот Сканер Папок поможет.
Загрузить KFolderScanner.exe (539 кб)
* Правая кнопка мыши → Сохранить ссылку как…