Yo sigo usando las rutinas de las NKLIBS una estupenda biblioteca de funciones.
Código Delphi
[-]
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer;
lRecur: Boolean; S: TStrings): Boolean;
function FindFilesInDirS(const cDir:String; cMask: String; iAttr: Integer;
lRecur: Boolean; S: TStrings): Boolean;
function FindSubsInDir(const cDir: String; S: TStrings;const FullPathInSubdirs:Boolean = false): Boolean;
Ejemplo de llamada:
Código Delphi
[-] findfilesindirS(getwindir + '\msagent\chars', '*.acs', faanyfile,
false, TStringList(combopersonaje.items));
Son gratuitas y usando google no tardarás en bajarlas.
Saludos