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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
, h) }5 `8 I% c! e9 X- _" B  tis
: n) O0 Q  `" q6 Z& P        i:integer;
  x8 E# X9 p( b/ R3 M        Res:string;
7 b& X1 i! y7 r1 R, X) ]  z        obj:object;
( n  A% p4 Z! E1 q5 j3 Fdo
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
: Q# C" E$ U( Y0 ?* ?9 Q1 R% f                Res:=sprint("Store_",i);
# j- m! V- m! Z0 D1 `% w9 N. a/ ?( @                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
/ A+ Z5 A5 N0 Z8 r' C2 F! |        --shengcheng Status:zimoxingceng
: c. y3 W, T6 b- V        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
. }' z8 ~1 T. @0 @6 A# N4 h+ J4 w       
        for i:=1 to WH_nums loop
3 _% r- Z5 Y- @; \' _                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
* L: n  i4 P8 \$ g( c                Obj.xDim:=WH_x;
  |6 |- [1 Y6 f                Obj.yDim:=WH_y;
: S+ ~* Y, a& P9 c$ G; w5 L  J2 S                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
4 v$ ?9 c' c7 Q! I! S* Z                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
( d' ^7 x4 {3 y4 q+ c6 N# c! r                Obj.maxyDim:=WH_y;
- f9 j! F, i5 P! \: l8 n                Obj.ColumnWidth:=3;
1 F/ `" y% Q. p# X$ H5 V        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
6 d+ D: x* D  `1 J2 d        for i:=1 to Part_Nums loop
& V, W4 }9 e# }2 i, p0 v- ^                WH_var[1,i]:=chr(64+i);
2 O7 H( f8 s8 O+ V: g0 N, y/ K$ t1 O        next;
- T1 @/ d7 U: Y) S9 Y1 [' Rend;
4 f: S0 C! a; s4 {出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了