在WebBrowser中判断屏幕坐标对应的是何HTML元素

在WebBrowser中判断屏幕坐标对应的是何HTML元素～～

uses MSHTML;

procedure TForm1.Button1Click(Sender: TObject);

var

 vHTMLElement: IHTMLElement;

begin

 vHTMLElement := (WebBrowser1.Document as IHTMLDocument2).elementFromPoint(10, 10);

 if Assigned(vHTMLElement) then

   Caption := vHTMLElement.tagName;

end;