帮我看看到底是什么原因?程序运行就中断.提示list index out of bounds .代码如下! ( 积分: 50 )

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(edit1.Text);
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
close;

end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
try
WebBrowser1.GoBack;
except
showmessage('已经到了最早的历史记录');
exit;
end;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
try
WebBrowser1.GoForward;
except
showmessage('已经到了最后的历史记录');
exit;
end;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
webbrowser1.Stop;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
webbrowser1.GoHome;
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
statusbar1.Panels[0].Text:='正在连接地址'+edit1.Text;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
statusbar1.Panels[0].Text:='完成'+webbrowser1.LocationURL;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(edit1.Text);
end;

procedure TForm1.ToolButton8Click(Sender: TObject);
begin
close;

end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
try
WebBrowser1.GoBack;
except
showmessage('已经到了最早的历史记录');
exit;
end;
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
try
WebBrowser1.GoForward;
except
showmessage('已经到了最后的历史记录');
exit;
end;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
webbrowser1.Stop;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
webbrowser1.GoHome;
end;

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
statusbar1.Panels[0].Text:='正在连接地址'+edit1.Text;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
statusbar1.Panels[0].Text:='完成'+webbrowser1.LocationURL;
end;

end.

1/是哪个按钮的问题

2/是在脱离DELPHI的环境还是在Delphi环境里面出的问题

如果是前进后退出现的问题，而且在Delphi里面的话，那就没有问题，因为你已经try了

越界啊。。。看看用到数组或者列表的地方

比如statusbar1.Panels[0]. 这个地方，你确定statusbar1.panels里至少有一个对象吗

主要注意这2个，在他们的过程设个断点看看
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
statusbar1.Panels[0].Text:='正在连接地址'+edit1.Text;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
statusbar1.Panels[0].Text:='完成'+webbrowser1.LocationURL;
end;

是不是抄了别人的代码,自己的statusbar没有添加panel??

谢谢,解决