Wenn Du weder Verzeichnisse noch System- noch versteckte Dateien listen möchtest, musst Du die Attribute entweder einzeln nacheinander oder mit einer passenden Bitmaske abfragen.
if ((SR.Attr and faDirectory) = 0) and ((SR.Attr and faHidden) = 0) and ((SR.Attr and faSysFile) = 0) then
oder
if (SR.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
Falls Dir das unklar ist, schau doch mal in mein Tutorial
