TListDirectoriesSearcher
pt
DoDirectoryFound
Create
TFileSearcher
DoDirectoryEnter
DoFileFound
DoQueryFileFound
DoQueryDirectoryEnter
Search
TFileIterator
Stop
IsDirectory