uses

  mshtml, ActiveX;

//初始加载主页

procedure TForm1.FormCreate(Sender: TObject);

begin

  Webbrowser1.Navigate('http://www.hao828.com/');

end;

procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;

Document: IHTMLDocument2;

Element: IHTMLElement;

Anchors: IHTMLElementCollection;

sLink: string;

begin

   //查找页面链接

   sLink := 'http://www.hao828.com/';

   Document := Webbrowser1.Document as IHTMLDocument2;

   if Assigned(Document) then

   begin

      Anchors := Document.Get_links;

      //遍历所有链接

      for i := 0 to Anchors.length - 1 do

      begin

         Element := Anchors.item(i, varempty) as IHTMLElement;

         //找到指定链接

         if Assigned(Element) and (UpperCase((Element as IHTMLAnchorElement).href) = UpperCase(sLink)) then

        begin

           //执行点击

           Element.Click;

           Break;

        end;

      end;

   end;

end;