DarkByte, si usas las rxlibs, tienen una unidad llamada nkfiles.pas en la cual tienes esta funcion:
Código:
// Devuelve una lista con todos los ficheros de un directorio que se ajustan
// a la máscara cMask, con unos atributos dados, si lRecursive vale True,
// busca también en los subdirectorios, en los subdirectorios de los
// subdirectorios, etc.
// Devuelve False si el directorio no existe.
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer;
lRecur: Boolean; S: TStringList): Boolean;
cmask := '*.jpg';
iattr := fareadonly+faAnyfile;
creo que debes añadir la unidad FileCtrl para usar fareadonly, si no es esta unidad, busca en la ayuda.(no tengo delphi a mano ahora mismo)
Para usar la libreria nkfiles, deberás añadir la ruta de la misma al Library Path de Delphi
Espero te sea de utilidad