Form1.wb1.Navigate(Aurl);
<table>
<tr>
<td style="text-align:right;"><label for="username">登录名:</label></td>
<td style="text-align:left;"><input id="username" name="username" tabindex="1" type="text" /></td>
</tr>
<tr>
<td style="text-align:right;"><label for="password">密码:</label></td>
<td style="text-align:left;"><input id="password" name="password" tabindex="2" type="password" /></td>
</tr>
<tr>
<td></td>
<td style="text-align:left;">
<label for="autologin"><input id="autologin" name="autologin" tabindex="4" type="checkbox" value="1" /> 保持登录状态</label>
</td>
</tr>
<tr>
<td style="text-align:left;">
<a href="/redmine/account/lost_password">忘记密码</a>
</td>
<td style="text-align:right;">
<input type="submit" name="login" value="登录 »" tabindex="5"/>
</td>
</tr>
</table>
procedure TForm1.btn5Click(Sender: TObject);
var
o: Olevariant;
begin
o :=self.wb1.OleObject.Document.all.Item('username', 0); // 找到登录用户名的输入框
o.value := '用户名';
o := self.wb1.OleObject.Document.all.Item('password', 0); // 找到登录密码的输入框
o.value := '对应的密码';
//self.wb1.OleObject.Document.Forms.Item(0, 0).submit; // 第一个表单提交
o :=self.wb1.oleobject.document.all.item('login',0); //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
end;
===还要其他 总结点有空再放进来