#pas
procedure THIFileSearch.Search;
var FindHandle:THandle;
begin
  FindHandle := FindFirstFile(PChar(Dir + '*.*'), FindData);
  if FindHandle=INVALID_HANDLE_VALUE then exit;
  repeat if (PChar(@FindData.cFileName[0]) <> '.')and(PChar(@FindData.cFileName[0]) <> '..') then
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>0 then  begin
      if _prop_Include > 0 then OutFiles(Dir,FindData.cFileName);
      if _prop_SubDir = 0 then Search(Dir + FindData.cFileName + '\');  // Вот здесь и не нравится !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    end else if StrCmp(LowerCase(FindData.cFileName),FWorkExt) then begin
      inc(FCount);
      if _prop_Include <> 1 then OutFiles(Dir,FindData.cFileName);
    end else _hi_OnEvent(_event_onOtherFiles,Dir + FindData.cFileName);
  until FStop or not FindNextFile(FindHandle, FindData);
  FindClose(FindHandle);
end;

  Self.FindData := @FindData;
  repeat if FindData.cFileName[0] <> '.' then
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)<>0 then  begin
      if _prop_Include > 0 then OutFiles(Dir,FindData.cFileName);
      if _prop_SubDir = 0 then begin 
         Search(Dir + FindData.cFileName + '\');
         Self.FindData := @FindData;
      end

procedure THIFileSearch._work_doSearch;
var Dr:String;
begin
  Dr := ReadString(_Data,_data_Dir,_prop_Dir);
  FWorkExt := LowerCase(ReadString(_Data,_data_Ext,_prop_Ext));
  if Dr = ' then exit;
..................

procedure THIFileSearch._work_doSearch;
var Dr:String;
begin
  Dr := ReadString(_Data,_data_Dir,_prop_Dir);
  if Dr = ' then exit;
  FWorkExt := LowerCase(ReadString(_Data,_data_Ext,_prop_Ext));
..................