Alternativ alles '*.*' suchen
und dann selber filtern.
TMask, MatchesMask (Masks.pas)
MaskUtils.pas
Falls das MatchesMask in D7 wo anders ist und nicht gefunden wird, dann eventuell mal bei TMaskEdit (Mask.pas) nachgucken.
oder Regex
oder MatchStr/MatchText/Pos
oder ...
Vielleicht könnte das hier auch interessant sein
http://www.delphipraxis.net/856893-post6.html (Beitrag #6)