Código Delphi [-] if (FileSearch.Attr = faDirectory) then begin {...}
if (FileSearch.Attr = faDirectory) then begin {...}