Есть ли подкаталоги?

procedure TForm1.Button1Click(Sender: TObject);
var
 aSearchRec:TSearchRec;
begin
if Findfirst('C:\1',faDirectory,aSearchRec)=0 then
 Showmessage('Yes');
end;

function Est(path: string):boolean;
var
   rec: TSearchRec;
   t: boolean;
begin
     t:= false;
     if Findfirst(s,faAnyFile,rec)=0 then
        repeat
                 if ((SR.Attr and faDirectory) = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..')
                 begin
                        t:= true;
                        break;
                 end;
        until FIndNext(rec)<>0;
        Est:= t;
end;

 
function Est(path: string):boolean;
var
   rec: TSearchRec;
   t: boolean;
begin
     t:= false;
     if Findfirst(path,faAnyFile,rec)=0 then
        repeat
                 if ((rec.Attr and faDirectory) = faDirectory)and(rec.Name='.')and(rec.Name='..')  then
                 begin
                        t:= true;
                        break;
                 end;
        until FIndNext(rec)<>0;
        Est:= t;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if est('C:\1')=true then showmessage('Yes');
end;

if ((rec.Attr and faDirectory) = faDirectory)  then // определяем является ли найденный файл каталогом 
                 begin
                   if (rec.Name='.')or(rec.Name='..')then  // если каталог верхнего ур-ня или корневой их игнорируем
                      exit;
                        t:= true;
                        break;
                 end;

//True - вложенные папки есть, иначе - False.
function ChFold(const aStrDirName : String) : Boolean;
const
  //Атрибуты, которые должны соответствовать файлам, которые мы ищем.
  //Т. е. искать будем только файлы с атрибутом faDirectory - т. е. папки. Остальные - исключаем.
  FileAttr : Integer = faDirectory;
var
  Sr : TSearchRec;
begin
  Result := False;
 
  if FindFirst(aStrDirName + '\*', FileAttr, Sr) <> 0 then begin
    FindClose(Sr);
    Exit;
  end;
 
  repeat
    //Пропускаем элементы, отличные от папок.
    if ( Sr.Attr and FileAttr ) <> FileAttr then Continue;
    //Если элемент не является ссылкой на родительскую или на текущую папку, значит
    //этот элемент является вложенной папкой - т. е. вложенные папки есть.
    if not ( (Sr.Name = '.') or (Sr.Name = '..') ) then begin
      Result := True;
      FindClose(Sr);
      Exit;
    end;
  until FindNext(Sr) <> 0;
 
  FindClose(Sr);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  FName = 'C:\Test';
begin
  if ChFold(FName) then
    ShowMessage('Вложенные папки есть.')
  else
    ShowMessage('Вложенных папок нет.')
  ;
end;