Ordner nebst Unterordnern durchsuchen

[SirThornberry]

Ich sehe gerade was ganz anderes was vielleicht auch den Fehler auslöst:
fileAttr:=FileGetAttr(Filename); 1.) Das ganze ist zum scheitern verurteilt weil Filename bei dir nur der relative Dateiname zum aktuell durchsuchten Pfad ist und somit wird die Datei so gut wie nie gefunden.
2.) Das ganze ist überflüssig da du die Dateiattribute bereits im TSearchRec hast welches durch FindFirst und FindNext gefüllt wird.