[dec]

Hola,

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