代码说明：
TFileSearch is a simple component that incapsulates FindFirst, FindNext and FindClose procedures. It also enables you to perform an action (defined on OnPerformeAction method) on each file that responds to a search criteria. It supports sub-directory search
