function  FindFile(Path,Files:String):TStrings;
Var
  Dirs,Fill:String;
  IO,len,i:Integer;
  Search:TsearchRec;
Begin
//While Pos(';',files)>0 do
// Files[Pos(';',Files)]:=' '; //****
Dirs:='';
Result:=TStringList.Create;
If Path[Length(Path)]='\' then
  Delete(path,length(path),1);
Repeat
  I:=Length(Files);
  Repeat
    Fill:='';
    While (I>0) and (files[I]<>';') do //' ') do //******
      Begin
        Fill:=files[I]+Fill;
        I:=i-1;
      end;
    I:=i-1;
    IO:=findFirst(path+'\'+fill,faAnyFile-faDirectory,Search);
    While Io=0 do
    Begin
      If (search.Name<>'.') and (search.name<>'..') then
        Result.Add(path+'\'+Search.name);
      IO:=FindNext(Search);
    end;
    FindClose(search);
  until I<1;
  IO:=FindFirst(Path+'\*.*',faAnyFile,Search);
  While IO=0 do
  Begin
      If (search.Name<>'.') and (search.name<>'..') and
         (search.Attr and FaDirectory>0) then
        Dirs:=Dirs+Path+'\'+Search.Name+#13;
      Io:=FindNext(search);
  end;
  FindClose(search);
  Len:=length(Dirs)-1;
  Io:=len;
  If Len>0 then
    Begin
      While (IO>0) and (Dirs[IO]<>#13) do Io:=IO-1;
      Path:=Copy(Dirs,IO+1,Len-IO);
      SetLength(Dirs,IO);
    end;
Until(len<0);
end;