仿真出错，求大神帮我看看哪里错了

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
: d: i6 v5 l1 S2 C# C2 E8 ?& ]语句是这样的
is
        i:integer;
9 [  d2 n) Z8 ^% `- r" A2 J        Res:string;
        obj:object;
do
$ T7 m* _& _  F- h3 P! [, l        if existsObject("Status") then
                Status.deleteObject;
* _2 X: w; U" }9 A        end;
) U: X6 M1 o% P: @        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
, W( x; I$ D0 F  O$ J                if existsObject(Res) then
. m$ z: Y5 g+ o( D( o( a                        Obj:=str_to_obj(Res);
8 `1 s+ x: D8 D2 }& b# B                        Obj.deleteObject;
                end;
; |- ~  x0 ]" M! _. p        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
. k" O7 @: m7 F5 z' J0 H        Obj.Label:="warehouse status";
       
' j' e" b2 b2 q3 b: R( S- t        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& [( Q3 z1 V) [, i) H$ x, y# G4 |                Obj.Label:=sprint("huojiaceng:",i);
" A8 W$ D$ w* S( `' L! @& a                Obj.xDim:=WH_x;
6 O6 ^! e$ C3 J( v7 T                Obj.yDim:=WH_y;
2 a" ]$ i7 E0 I. r1 W, V0 J                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' Z5 N4 y( g! {" j( F& e                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
; }: G! \: ~, F: l& j9 G. H        next;
* Y) i: l) Y0 }       
6 k+ C; H. {3 _' z8 V" F/ C        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
5 r. h) ]2 R, n& |3 G        for i:=1 to Part_Nums loop
- o5 J( P2 a6 h( Z4 u+ D                WH_var[1,i]:=chr(64+i);
        next;
: G" l0 P/ M. U, \) Yend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了