добавил просмотр подкаталогов, ну и кое-что изменил для несовместимости с пред. версией (сейчас все так делают
)
метод Find вместо Execute
свойства:
property Mask: String - без изменений
property Directory: String - без изменений
property Attr: TFileAttributes - сделал набором значений
property IncludeParentPath: Boolean - без изменений
property IncludeSubDirectory: Boolean - просмотр подкаталогов
property IncludeDirectoryName: Boolean - включать в список имена папок (имена папок оканчиваются "\") или только файлы