TListFileSearcher

pt 

DoFileFound

Create

TFileSearcher

pt 

DoDirectoryEnter

pt 

DoDirectoryFound

pt 

DoFileFound

pt 

DoQueryFileFound

pt 

DoQueryDirectoryEnter

Create

Search

TFileIterator

Stop

IsDirectory