Ya probé estos ejemplos pero no funcionan, al entrar en el directorio de Windows donde hay carpetas comprimidas, encriptadas, ocultas, protegidas, etc no las muestra. Por eso tuve que buscar todas las combinaciones.
Ya probé ese ejemplo que me facilitó un colega de #delphi, la web del truquillo:
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst
Muchas gracias por vuestro interés y sugerencias, pero como puedo hacer lo que os pregunté (si se puede), si no se puede hacer tendré que hacer un monton de
if (... = ...) or (... = ...) then.
De nuevo, muchas gracias por vuestro interés y sugerencias, me estan ayudando mucho.