TListDirectoriesSearcher
pt
DoDirectoryFound
Create
TFileSearcher
DoDirectoryEnter
DoFileFound
Search
TFileIterator
Stop
IsDirectory