为什么总是提示下标淤出？？？ ( 积分: 28 )

我用quickrep1,adoquery1,dbgrid1做了一个动态报表，可以打印五个字段和四个字段，当先打印五个字段在打印四个字段时就报错，这是为什么啊，提示错误是：‘list index out of bounds(4)’，谢谢，远代码如下：（只有70多分了，不好意思，只能少给点了，如果我有分，一定多给，谢谢了）
if (form1.RadioGroup1.ItemIndex=0) or (form1.RadioGroup1.ItemIndex=2) then
begin
if form1.PageControl1.ActivePageIndex=0 then
begin
qrlabel5.Enabled:=true;
qrlabel6.Enabled:=false;
qrlabel2.Caption:='所属地区';
qrlabel3.Caption:='地区编号';
qrlabel4.Caption:='电话号码';
qrlabel5.Caption:='注册时间';
qrlabel3.Left:=224;
qrlabel4.Left:=360;
qrlabel5.Left:=550;
qrdbtext3.DataField:='电话号码';
qrdbtext4.DataField:='注册时间';
qrdbtext2.Left:=224;
qrdbtext3.Left:=360;
qrdbtext4.Left:=550;
end;
if form1.PageControl1.ActivePageIndex=1 then
begin
qrlabel6.Enabled:=true;
qrlabel5.Enabled:=true;
qrlabel2.Caption:='所属地区';
qrlabel3.Caption:='地区编号';
qrlabel4.Caption:='电话号码';
qrlabel5.Caption:='注册时间';
qrlabel6.Caption:='注销时间';
qrlabel3.Left:=168;
qrlabel4.Left:=250;
qrlabel5.Left:=360;
qrlabel6.Left:=500;
qrdbtext3.DataField:='电话号码';
qrdbtext4.DataField:='注册时间';
qrdbtext5.DataField:='注销时间';
qrdbtext2.Left:=168;
qrdbtext3.Left:=250;
qrdbtext4.Left:=360;
qrdbtext5.Left:=500;
end;

我用quickrep1,adoquery1,dbgrid1做了一个动态报表，可以打印五个字段和四个字段，当先打印五个字段在打印四个字段时就报错，这是为什么啊，提示错误是：‘list index out of bounds(4)’，谢谢，远代码如下：（只有70多分了，不好意思，只能少给点了，如果我有分，一定多给，谢谢了）
if (form1.RadioGroup1.ItemIndex=0) or (form1.RadioGroup1.ItemIndex=2) then
begin
if form1.PageControl1.ActivePageIndex=0 then
begin
qrlabel5.Enabled:=true;
qrlabel6.Enabled:=false;
qrlabel2.Caption:='所属地区';
qrlabel3.Caption:='地区编号';
qrlabel4.Caption:='电话号码';
qrlabel5.Caption:='注册时间';
qrlabel3.Left:=224;
qrlabel4.Left:=360;
qrlabel5.Left:=550;
qrdbtext3.DataField:='电话号码';
qrdbtext4.DataField:='注册时间';
qrdbtext2.Left:=224;
qrdbtext3.Left:=360;
qrdbtext4.Left:=550;
end;
if form1.PageControl1.ActivePageIndex=1 then
begin
qrlabel6.Enabled:=true;
qrlabel5.Enabled:=true;
qrlabel2.Caption:='所属地区';
qrlabel3.Caption:='地区编号';
qrlabel4.Caption:='电话号码';
qrlabel5.Caption:='注册时间';
qrlabel6.Caption:='注销时间';
qrlabel3.Left:=168;
qrlabel4.Left:=250;
qrlabel5.Left:=360;
qrlabel6.Left:=500;
qrdbtext3.DataField:='电话号码';
qrdbtext4.DataField:='注册时间';
qrdbtext5.DataField:='注销时间';
qrdbtext2.Left:=168;
qrdbtext3.Left:=250;
qrdbtext4.Left:=360;
qrdbtext5.Left:=500;
end;

當然會出錯呀，你的quickrep1打印完之後有沒有釋放掉？需要動態創建和釋放。

怎样动态创建和释放啊