TFileSearcher
OnDirectoryFound
OnFileFound
TFileIterator