function FindFiles(FileMask:string;  
                       //The mask of the file (*.* for example)
                   Path:string;
                       // The path to start searching from ...
		  FindInSubDir:boolean;
                       // To search in sub dir 2 ?
                  var FileList: TstringList
                       // The list to put the file in...
                  ) : boolean; //True if any  file was found

 	procedure FindSubFiles(SubDir : string);
	 var
	  FileSeek : TSearchRec;
	  I             :  integer;
	 begin
           I:=findfirst(SubDir+FileMask, faAnyfile, FileSeek);
	   while I=0 do  begin
 	     if (FileSeek.attr and (faVolumeID+faDirectory))=0 then 
                FileList.add ( SubDir +FileSeek.Name);
   	     I:=FindNext(FileSeek);
           end; //while

    	 if FindInSubDir then
	 begin
	   while (I=0)and(FileSeek.name[1]='.') do I:=findNext(FileSeek);
      	   while I=0 do begin
             if ((FileSeek.attr and faDirectory)=faDirectory) then 
		FindSubFile (Concat(SubPath,fileseek.name, '\'); 
                //Recurse
	     I:=FindNext ( fileseek );
           end;   //While 
         end; //If
         
         FindClose(FileSeek);
    end;

begin
  result:=true;
  FindSubFiles(Path);
  if FileList.count=0 then result:=false;
end;