var
  Form1: TForm1;
  type
       bancai=^bc;   //板材的数据结构
         bc=record
         long:real;
         width:real;
         x1:real;
         y:real;
         page:integer;
         next:bancai;
     end
  p,q,:bancai;
implementation

{$R *.dfm}

再次请教  我运行时有个这个错误 您给看看是什么错误     list index out of bounds(-1) delphi  这是什么错误 新手求大侠帮助