RinniX, самое первое, что пришло в голову. Один проход и два типа файлов.
code_26190.txt
Если список расширений более длинный, то применить StrList.
------------ Дoбавленo в 12.13:
По идее, множественную маску поиска нужно засунуть в компонент FileSearch.
Проблем не вижу, но... надоело воевать.