怎么点这个button(100分)

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var doc :IHTMLDocument2;
chk:ihtmlinputelement;
begin
doc:=webbrowser1.Document as IHTMLDocument2;
chk:=doc.all.item('username',0) as ihtmlinputelement;
chk.value:='hao';
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk:=doc.all.item('password',0) as ihtmlinputelement;
chk.value:='669';
chk:=doc.all.item('submit',0) as ihtmlinputelement;
最后的chk是一个button。怎么点他。谢谢
end;

有人知道吗？谢谢

最好说明你的功能 以及问题所在

就是做个自动登陆的功能啊