'list index out of bounds(0)'怎么处理？

Question

我用delphi编程序，编译没错误，一运行就蹦出了
'list index out of bounds(0)'
登录后显示主窗口。可主窗口不能正常显示
涉及代码：
//显示当前的系统时间
procedure TMain_Form.Timer1Timer(Sender: TObject);
begin
 StatusBar1.Panels.Items[0].Text:='当前时间:'+TimeToStr(now);
end;
单步执行到这，就蹦出那个错了，索引也没过界阿，到底怎么回事啊，具体怎么改啊！
我都改了好长时间了。望高手给予指导！谢了！

Answer 1

因为你的StatusBar1没有建立新的Panel，据体做法是，双击你的StatusBar1，弹出个小框框后，点击Add New(Ins)那个小按钮，新增加一个Panel出来就可以了。