Falls Du noch nix gefunden hast, dieser Code sollte das sein, was Du suchst:
http://www.delphipraxis.net/internal...=589749#589749
An der Stelle wo der Kommentar steht, musst Du einfach Deine Zählvariable um 1 erhöhen.
Um einen Ordner auszuwählen in dem gesucht werden soll, ersetze in der ersten Zeile das '*' duch Deinen Ordner.
Das * muss allerdings da bleiben, also z.B.: 'C:\Windows\*'
Wenn Du Umgebungsvariablen für den Ordnernamen verwenden möchtest, suche mal nach EnvironmentString oder EnvironmentVariable (evtl. noch mit Expand davor).