[Der_G()RuNu(h]

Код:

  if FindFirst(FileName, faAnyFile, SearchRec)=0 then
    repeat
    if (SearchRec.Attr and faAnyFile)=SearchRec.Attr then
      begin
        Writeln(ff,Path+SearchRec.Name);//что записываем
      end;
      Error:= FindNext(SearchRec);
  until Error <>0;
  //обработка подкаталогов текущего каталога
  if FindFirst('*', faAnyFile, SearchRec)=0 then
    repeat
      if (SearchRec.Attr and faDirectory)=faDirectory then
        if SearchRec.Name[1]<>'.' then
          begin
            //MainForm.Memo1.Lines.Add('>>>>'+SearchRec.Name);
            ChDir(SearchRec.Name);//войти в каталог
            Find;//поиск
            ChDir('..');//выйти изх каталога
            //MainForm.Memo1.Lines.Add('<<<<'+SearchRec.Name);
          end;
  until FindNext(Searchrec)<>0;

ошибка появляется при команде "войти в каталог".
File access denied