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.wav
er", dann würde dein Vergleich WAHR sagen, also "
.wav" = copy("
.waver", 1, 4).