TFileSearch

 by Nicola {MSX} Lugato

 nicola@lugato.org
 http://msx.rules.it

 A simple component that incapsulate
 FindFirst FindNext and FindClose procedures

 Usage:

 You can call OpenSearch to start a new search with specified
 arguments. Once opened call NextMatch to get results until
 it returns false. Than call CloseSearch.

 Alternatively you can call PerformeAction. With
 PerformeAction you specify the action to performe on each
 file that respond to your search in metod OnPerformeAction.
 In this case you can also use the IncludeSubdirectory to
 perform the action even on subdirs.

 if you like this component and use it, please
 tell me: nicola@lugato.org
