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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
. A% S( p9 J  O+ t# @1 t# t        obj:object;
, L) u* ?2 a2 V% H& t2 a$ Odo
2 A, c! D; Q+ u/ ]        if existsObject("Status") then
                Status.deleteObject;
        end;
3 \8 \2 V8 p  f' P        for i:=1 to 10 loop
1 t  R* B4 j- m/ m, ]$ D" A                Res:=sprint("Store_",i);
6 S7 H# H3 L( d( q3 {; n: f                if existsObject(Res) then
5 D& N* K, i+ K% E$ Y1 @; a; w1 t& _                        Obj:=str_to_obj(Res);
* Q0 E/ A2 ~" C  e# D                        Obj.deleteObject;
$ M8 z: p: H  E( ?3 m+ n/ r7 G                end;
2 H% _0 R) ]6 A" ?- C) K4 e8 Y" w" U7 U        next;
2 N- G2 _2 r" n1 g- v        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* C" M$ J. a9 G0 \: [6 b        Obj.Label:="warehouse status";
+ [) }: F4 p- d( \$ w3 R* j) d       
$ t# D) F2 h7 g: J8 B9 N# m, Q0 T- H        for i:=1 to WH_nums loop
) R% x% ]8 j) Q7 e+ g' _                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
" |( b( Y- t  \# m2 n9 S                Obj.Label:=sprint("huojiaceng:",i);
; z0 e; m4 ]5 N6 ]* k% |9 j8 ]7 \                Obj.xDim:=WH_x;
' S/ f6 x8 O; i9 b) ]: }+ Z0 J                Obj.yDim:=WH_y;
7 |, f& \* Q0 Z                Res:=sprint("StoreData_",i);
+ }! z$ L: g: C* P' F# I. j               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
  V& Q8 r0 r  }! g                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
# y/ h5 h2 Y! v) y& X       
        .Delivery.MUs.Forklift.speed:=2;
. _4 ?) S; O. \0 {& m- A- @' `        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
2 U1 O5 b6 V. T, G1 H: y% Jend;
3 n; ]) l$ t! M. A" N出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了