Prüfen ob ein verzeichnis die gewünschte erweiterungen hat ?

[mimi]

ich habe herrausgefunden warum meine funktion nicht funktionieren kann:
      if (SR.Name[1]<>'.') and ((sr.Attr or faAnyFile) = faAnyFile) and (pos(ExtractFileExt(sr.name),AMask) > 0)then begin pos gibt immer 0 zurück ich weiß einfach nicht warum AMask sieht z.b. so aus '.M4A.'
edit1:
in der hilfe steht doch drin das pos groß klein schreibung nicht beachten aber es beachtes sie trozdem

aber es läuft immer noch nicht so wie ich es mir vorgestellt habe das suchverzeichnis wird nicht als root knoten angezeigt die filter funktion funktioniert anscheind !