Delphi 从 TWebBrowser中获得当前输入处的链接

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;