procedure EnumElement(DOC2:IHtmlDocument2;classname:string;title:string);
var
  j:Integer;
  HTMLElement:IHTMLElement;
begin
  for j:=0 to Doc2.all.length-1 do
   begin
      HTMLElement:=Doc2.all.item(j,0) as IHTMLElement;
      if (HTMLElement.className=classname) and(HTMLElement.title=title) then
begin
        HTMLElement.click;//这里出错,为什么?
         Exit;
      end;
   end;
end;