Dateien rekursiv suchen und in Typisirtes Array schreiben.

[himitsu]

Hier auch noch was falsches
if copy(sr.Name,1,1)<> '.' then richtig ist es so, da ein Datei-/Verzeichnisnamen auch mit einem Punkt anfangen können
(man denke da nur mal an die berümte ".htaccess")
if (sr.Name <> '.') and (sr.Name <> '..') then
Und wir wäre es mit
if ExtraxtFileExt(sr.Name) then statt diesem?
if copy(sr.Name,pos('.',LowerCase(sr.Name)),4) = ext then Wobei die 4 auch nicht gerade gut gewählt ist, denn die dateiendung kann auch mehr als nur 3 Zeichen lang sein.

Außerdem, wenn z.B. ext = ".wav" und sr.Name = "irgendwas.waver", dann würde dein Vergleich WAHR sagen, also ".wav" = copy(".waver", 1, 4).