Допустим есть функция:

Function GetFileCount(Dir:string):integer;
var fs:TSearchRec;
begin
Result:=0;
if FindFirst(Dir+'\*.htm?',faAnyFile-faDirectory-faVolumeID, fs)=0 then
repeat
inc(Result);
until FindNext(fs)<>0;
FindClose(fs);
end;

Которая позволяет наиболее быстрым способом узнать количество файлов с определенным расширением (htm, html) в заданном каталоге.

В Windows NT 4.0 эта функция находит как htm так html файлы.
В Windows 98 эта функция находит только файлы с расширением html.

Подскажите в чем проблема?