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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
$ ^% m% x* w8 f9 ]  [9 W9 l" F  k语句是这样的
is
        i:integer;
( ]0 O1 T2 o% W; H  l        Res:string;
        obj:object;
do
- c6 Z: c$ B# z4 g  e; T6 O+ ~$ o$ d        if existsObject("Status") then
# k) b/ K5 p: [" X( x8 `: R3 @1 v( A' O                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
* o4 L9 v5 c- G1 C                if existsObject(Res) then
8 q: v4 h7 ~( M' J1 U9 ~                        Obj:=str_to_obj(Res);
5 V- w& S, f* H                        Obj.deleteObject;
                end;
        next;
; r  m) K- S* B        --shengcheng Status:zimoxingceng
1 B; C' W4 p$ G* Q: E3 X        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
; b. w. s# w. I2 k% P) d( A       
        for i:=1 to WH_nums loop
0 f# n8 i8 \! e* c& a                Res:=sprint("Store_",i);
* B# m& R& m1 x8 c, W                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
3 g- X1 t* I" Z  j                Obj.xDim:=WH_x;
- v) e7 A& _) }) O4 Y0 z9 k                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
( z- o# ?+ P2 f" c) O+ l+ t4 H. r                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 w* {( E# Z3 J; Z                Obj.Label:=sprint("huojiaceng:",i);
2 @2 n5 G6 s" H% b6 o; h. v( U                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
# R7 ~: ^% R$ A2 y4 V! k; R) V9 S                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
( Q% D  H! H% j6 t% T        WH_var.delete({1,Part_Nums+1}..{*,*});
, Z# B  K% Z4 a0 t' L' ]        for i:=1 to Part_Nums loop
$ R. a/ [+ f0 M( M                WH_var[1,i]:=chr(64+i);
        next;
. F- G0 M8 U4 ~# B  Qend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
2 K" v  V: J  N5 p" o