Du könntest auch mit FindFirst und FindNext (in der
OH ist n gutes Beispiel oder suchst hier mal danach) arbeiten und dann mit ShellExecute die Dateien öffnen, da sparst du dir die TStrings ganz.
Deine Methode kenn ich noch garnicht, gleichmal ausprobieren! Sieht nach weniger arbeit aus!
[EDIT]Die Procedure ist wohl selbst geschrieben, kann sie garnich finden![/EDIT]