关于数组的问题〔分不多了：（〕(10分)

我在类里申明了一个数组：
//染色车间类
type
Trs = class(TCJ)
wcrs : Tstringlist ;
rsdw : Tstringlist ;
wcgr : Tstringlist ;
grdw : Tstringlist ;
cts : Tstringlist ;
ctdw : Tstringlist ;
hxs : Tstringlist ;
hxdw : Tstringlist ;
private
{ Private declarations }
RsValue : Array [0..12] of Tstringlist ;
public
constructor Create(ConnStr:WideString); override ;
destructor Destroy ; override ;
function SaveRBB(dt : TDateTime): Boolean ; override;
function GetRBB(fs: string ; IsNew : Boolean): integer ; override;
end ;

创建时初始化为：
constructor Trs.Create(ConnStr: WideString);
var
i : integer ;
begin
RsValue[0] :=jid; （*继承的父类的tstringlist，下同）
RsValue[1] :=goodsid; *
RsValue[2] :=wcrs;
RsValue[3] :=rsdw;
RsValue[4] :=wcgr;
RsValue[5] :=grdw;
RsValue[6] :=cts;
RsValue[7] :=ctdw;
RsValue[8] :=hxs;
RsValue[9] :=hxdw;
RsValue[10] :=tjrq; *
RsValue[11] :=tjy; *
RsValue[12] :=tjbz; *
for i := 2 to 9 do RsValue := Tstringlist.Create ;
inherited;
end;

在过程中是这样用的
function Trs.GetRBB(fs: string ; IsNew : Boolean): integer;
var
j : integer ;
begin
。。。
for j := low(RsRsValue)+1 to high(RsRsValue) do
showmessage(RsValue[j].strings[0]) ;
。。。
end;
只要运行到这一句就会报出错误，是内存错误