procedure THiSearchInFile._work_doSearch;
var
  F: TextFile;
  fn, t: string;
  BufIn : Array[0..65535] of Char;
begin
  fn := ReadString(_Data, _data_FileName, _prop_FileName);
  if not FileExists(fn) then exit;
  t := ReadString(_Data, _data_Text, _prop_Text);
  AssignFile(F, fn);
  Reset(F);
  SetTextBuf(F, BufIn);
  FStop := False;
  while not eof(F) and not FStop do
  begin
    Readln(F, str);
   If t=' then _hi_onEvent(_event_onSearch, str)
   else  
    case pos(t, str) of
      0: Continue
    else
      _hi_onEvent(_event_onSearch, str);
    end;
 
  end;
  CloseFile(F);
  _hi_onEvent(_event_onEnd, ');  
end;