procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.all.item('UserName').value:='用户名';//name
WebBrowser1.oleobject.document.all.item('Password').value:='密码';
WebBrowser1.oleobject.document.all.item('提交按钮的name').Click;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('登录页面的链接网址');
end;