delphi 获取某个页面所有的链接

    USER  MSHTML  
    procedure TfrmWebEmail.btn5Click(Sender: TObject);  
    var  
      Doc: IHTMLDocument2;  
      Len: Integer;  
      item: OleVariant;  
      all: IHTMLElementCollection;  
      I: Integer;  
    begin  
      Doc :=  ebdwbWeb.Document as  IHTMLDocument2;  
      all := Doc.links;  
      Len := all.length;  
      for I :=  0 to Len -1 do  
      begin  
        item := all.item(I, EmptyParam);  
        mm1.Lines.Add(item.href) ;  
      end;   
    end;