Ich nochmal... Ich werde dir das "klauen"
http://www.delphipraxis.net/1109721-post9.html
Keine angst, ist nur für mich privat...
[mal einen bettelversuch starten]
Das "komplette" kannst du nicht posten, oder? Also quasi als Procedure wo man mit Pfad reinspringt und er ein TStrings füllt. z.b. so
GetAllFiles('C:\','*.doc',Filelist);
[/mal einen bettelversuch starten]