delphi中document怎么把html字符串读入,如何在Delphi中将事件附加到IHTMLDocument2链接元素？...

procedure DoDocumentComplete(const pDisp: IDispatch; var URL: OleVariant);

var

Document:IHTMLDocument2;

Body:IHTMLElement;

Links:IHTMLElementCollection;

i:integer;

tmp:IHTMLElement;

begin

try

Document := (pDisp as IWebbrowser2).Document AS IHTMLDocument2;

Body := Document.body;

Links := Document.links;

for i := 0 to (Links.length-1) do

begin

tmp := (Links.item(i, 0) as IHTMLElement);

//tmp.onclick := HOW SHOULD I ADD THE CALLBACK HERE?

//ShowMessage(tmp.innerText);

end;

except

on E : Exception do

ShowMessage(E.ClassName+' error raised, with message : '+E.Message);

end;

end;

我怎么能附加功能/过程.onclick做一个简单的任务像显示与锚文本的警报时，链接被点击？