文件类型查找(10分)

procedure TForm1.btn2Click(Sender: TObject);
var
searchRec:TSearchRec;
found,i:Integer;
tmpStr,path:String;
curDirChar;
dirs:TQueue;
begin
i:=0;
path:=edtdir1.Text;
dirs:=tqueue.Create;
dirs.Push(pchar(path));
curdir:=dirs.Pop;
while (curdir<>nil) do
begin
tmpstr:=strpas(curdir)+'/*.*';
found:=findfirst(tmpstr,faanyfile,searchRec);
while found=0 do
begin
if (searchRec.Attr and faDirectory)<>0 then //找到的是目录
begin
if (searchRec.Name <> '.') and (searchRec.Name <> '..') then //不是子目录
begin
tmpstr:=strpas(curdir)+'/'+searchrec.Name;
dirs.Push(strnew(pchar(tmpstr)));
end;
end
else //找到的是文件
begin
lvpagelist.Items.Item:=lvpagelist.Items.Add;
lvpagelist.Items.Item.Caption:=searchrec.Name;
inc(i);
end;
found:=findnext(searchrec);
end;
if dirs.Count>0 then
curdir:=dirs.Pop
else
curdir:=nil;
end;
findclose(searchrec);
dirs.Free;
end;
我要在lvpagelist 中加入 后缀是.htm的文件 ..我要怎么加