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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
- T& O( L/ K! f        i:integer;
/ U- s) k& R: E! H# `        Res:string;
" H+ g1 b4 O; T9 Y8 |& B, H        obj:object;
do
( a. |0 ]9 H8 h& Q        if existsObject("Status") then
" y" z/ B  H+ F+ ^                Status.deleteObject;
" s2 d$ ^4 B$ m" l        end;
        for i:=1 to 10 loop
# V* f$ l0 s4 E- E8 c, u$ s                Res:=sprint("Store_",i);
. N! ^- z, z# l; _- u& Z+ t% d                if existsObject(Res) then
; F, `  F/ n1 h: o# D6 ]; @                        Obj:=str_to_obj(Res);
/ l& y" w2 }  N; z% @! l                        Obj.deleteObject;
1 I! ~* E0 J. R                end;
7 D9 S" W7 {/ a' Q8 m        next;
        --shengcheng Status:zimoxingceng
% e# I( t9 N. ?        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) ^" c2 @0 n* K1 _4 `        Obj.Label:="warehouse status";
: @1 l$ N1 r; l2 \5 E       
        for i:=1 to WH_nums loop
9 `0 K6 m9 E6 L* I2 I$ w                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
* L  @7 E- x" [: k" m                Obj.Label:=sprint("huojiaceng:",i);
- A, B/ o; `8 T3 I1 _                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
( W* A  n9 O+ n! T9 p4 w0 d                Res:=sprint("StoreData_",i);
               
3 u5 C  Y4 h2 @  i; t                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
! Y6 t# Y- G% C& G, h0 W; I$ U                Obj.inheritFormat:=false;
4 W5 F- @  J( W# m" j4 W                Obj.maxxDim:=WH_x;
+ C/ S% M) d: R, M6 \                Obj.maxyDim:=WH_y;
4 c0 u4 }3 F' i2 K5 R' D1 H                Obj.ColumnWidth:=3;
        next;
2 F' Y- L! Z% O. A0 {7 l3 \+ t7 K* A; B: R       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
7 N% ^  i4 r$ e( \% ?3 L7 F                WH_var[1,i]:=chr(64+i);
        next;
% }4 d; J% L3 fend;
# h/ h# r1 u. [# q: P7 n) w6 s出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了