У тебя маска: *.*, то есть <куча букв>
<точка><куча букв>. К папкам она тоже относится.
И, кстати:
Код:
FindFile(Dir+SR.Name+''); // входим в процедуру поиска с параметрами текущего каталога + каталог, что мы нашли
Было бы неплохо на конце слеш поставить.