WebBrowser后退，重新填表，然后出错了，求救啊！！
procedure TForm1.BtnStartClick(Sender: TObject);
var
str: string;
i,j: longint;
begin
i := 0;
for i := 0 to ListBoxName.Items.Count - 1 do
begin
while WebBrowser.Busy do
Delay(50);
with WebBrowser do
begin
OleObject.document.all.Item('xuehao').value := ListBoxNum.Items.Strings[i]; //i=0 时正常，i=1时报错；
OleObject.document.all.Item('zhenhao').value := ListBoxName.Items.Strings[i];
OleObject.document.all.Item('submit_query').click;
end;
{此处省略N行}
try
WebBrowser.GoBack;
except
on E: Exception do
begin
{此处省略N行}
end;
end;
end;
end;
