[Enan0]

Bueno simplemente edite esta linea y listo!!!!

Código Delphi [-]
Status := FindFirst(SlashSep(ParentDirectory, '*.*'),{faDirectory,} faAnyFile, SearchRec);