Description:
------------
This is Invisible component performing file search with or without recursing subfolders, 
with events generated on file match and on change scanning folder.
Written in Delphi3, but I suppose it will work on Delphi1 and Delphi2 also.
Version 1.1
// following 3 Additions by David R Hazlehurst 4/6/98 (drarh@tcp.co.uk)
TStringList to store list of files found. (called "FilesFound")
Support for multiple wildcards in the one search. (SearchFile property)
Added flag to indicate if searching already or not.

Contents:
---------
Component files:
	FileFind.dcu - compiled component
	FileFind.dcr - component resource
	FileFind.pas - component source
Demo project files:
	Project1.dpr
	Project1.dof
	Project1.res
	Unit1.pas
	Unit1.dfm

Component Description:
----------------------
Properties:
	property Stop : boolean - Set to true if you want to cancel searching.
	property SearchFile : shortstring - Set starting path and file mask for searching (e.g. "c:\*.doc").
	property RecurseSubFolders : boolean - Do recursing or not.
        property FilesFound : TStringList - drh : list of files found (read only)
        property Searching : boolean - drh : Indicates if a search is in progress (read only)
Event handlers:
	property OnFileFind : TFindFileEvent - On match found
	property OnChangeFolder : TChangeFolderEvent - On change folder
	property OnFinish : TNotifyEvent - On end of searching
Methods:
	procedure Start; - Start searching.

This component is freeware.
I guarantee you nothing concering this code, but you can use it as you wish.
Happy coding

This component is dedicated to the girl I love... B.

Jem Naadi Ahmed
Bulsoft
Bulgaria
25 May, 1998

jemna@yahoo.com

Any comments will be welcome.