急急急！！！F1Book挂了(100分)

我将所查询的记录用While循环向F1Book中赋值,为什么当记录大于22条时报内存地址错误！
单步调试不报错误正常显示，为什么呀！
代码如下:
F1Book_no.TextRC[1,1]:='被充值电话';
F1Book_no.TextRC[1,2]:='被充值电话类型';
F1Book_no.TextRC[1,3]:='充值电话';
F1Book_no.TextRC[1,4]:='交费卡批号';
F1Book_no.TextRC[1,5]:='交费卡卡号';
F1Book_no.TextRC[1,6]:='充值结果';
F1Book_no.TextRC[1,7]:='充值金额';
F1Book_no.TextRC[1,8]:='充值余额';
F1Book_no.TextRC[1,9]:='状态日期';
F1Book_no.TextRC[1,10]:='被充值地区';
F1Book_no.TextRC[1,11]:='卡所在地区';
F1Book_no.TextRC[1,12]:='卡所属分销商';
F1Book_no.TextRC[1,13]:='所在系统';
f1bookRow_count:=2;
while f1bookRow_count<=frmxtglczrj.ListView2.Items.Count+2 do
begin
F1Book_no.TextRC[f1bookRow_count,1]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[0]);
F1Book_no.TextRC[f1bookRow_count,2]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[1]);
F1Book_no.TextRC[f1bookRow_count,3]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookcol_count-2].subitems.Strings[2]);
F1Book_no.TextRC[f1bookRow_count,4]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookcol_count-2].subitems.Strings[3]);
F1Book_no.TextRC[f1bookRow_count,5]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookcol_count-2].subitems.Strings[4]);
F1Book_no.TextRC[f1bookRow_count,6]:='充值失败';
F1Book_no.TextRC[f1bookRow_count,7]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[6]);
F1Book_no.TextRC[f1bookRow_count,8]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[7]);
F1Book_no.TextRC[f1bookRow_count,9]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[8]);
F1Book_no.TextRC[f1bookRow_count,10]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[9]);
F1Book_no.TextRC[f1bookRow_count,11]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[10]);
F1Book_no.TextRC[f1bookRow_count,12]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[11]);
F1Book_no.TextRC[f1bookRow_count,13]:=vartostr(frmxtglczrj.ListView2.Items.Item[f1bookRow_count-2].subitems.Strings[12]);
f1bookRow_count:=f1bookRow_count+1;
//dm.ODS_Cx.Next;
end;
//F1Book_no.TextRC[f1bookRow_count+2,1]:=' 打印记录共'+inttostr(f1bookRow_count-2)+'条';
//F1book_no.TextRC[f1bookRow_count+3,1]:=' 打印日期：'+datetostr(now);
end;

[?]

F1Book中不能添入空字段,(容易出错),把分还给我呀,我只有110分了这个问题我自己解决了.