TFileSearcher
pt
DoDirectoryEnter
DoDirectoryFound
DoFileFound
Create
Search
TFileIterator
Stop
IsDirectory