[lmikle]

Ага!!!
Если я правильно помню, то ExtractFileExt дает расширение с лидирующей точкой (т.е. ExtractFileExt('aaa.txt') даст '.txt'). А вообще, есть модуль Masks и в нем функция MatchesMask, Лучше ею пользоватьсяю