delphi 通过webbrowser读取网页上确定标签ID的值

 Edit1.text := ((wbmap.document as IHTMLDocument2).all.item('tname', 0) as ihtmlinputelement).value
 dit1.text:= wbmap.OleObject.document.getElementByID('tname').value;

wbmap：webbrowser;
tname:网页标签ID名；