Finde den fehler nicht

[City Light]

nein auch nicht jeden fals bei mir nicht ,hab es jetzt so gemacht ,und es geht jetzt

Delphi-Quellcode:

if Pos(UpperCase(ExtractFileExt(SR.Name)), Extensions) > 0 then
        FileList.Append(Path + SR.Name);