delphi中WebBrowser控件怎么模拟点击网页框架中的按钮button？

假如按钮Name或ID是 button1 var o:Olevariant; o := WebBrowser1.OleObject.document.all.item('button1',0); o.click;