var unsubscribeStr : string;

    ovSelection: OleVariant;

    innerDom, ovTextRange, nnode: OleVariant;

begin

       ovSelection := Edit.doc.selection; //获得选择对象

       ovTextRange := ovSelection.createRange; // create a TextRange from the current selection

       if SameText(ovTextRange.parentElement.tagName, 'a') then

       begin

         //是链接，在这里进行处理

         ovTextRange.parentElement.outerHtml;  //链接的完整 HTML 

       end;

end;