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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
; {1 M7 a# s# I7 u: ?语句是这样的
is
        i:integer;
$ j5 h3 ^5 ]* G, M; ?        Res:string;
        obj:object;
do
9 G% i3 l" j; z$ r        if existsObject("Status") then
                Status.deleteObject;
        end;
/ u" e5 d8 }2 b: X( ]        for i:=1 to 10 loop
. V1 z1 [$ h+ w! g                Res:=sprint("Store_",i);
                if existsObject(Res) then
- z: R  A) V! l0 \                        Obj:=str_to_obj(Res);
9 v, ], j5 ?- ]2 I4 C/ P9 f" u                        Obj.deleteObject;
, J7 O) b$ u* T) [: n- `1 b                end;
        next;
! O5 P' c7 e* j, p! ~7 g        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' b: X3 p4 S- d        Obj.Label:="warehouse status";
       
+ }! k0 }" T5 p% I) e: B        for i:=1 to WH_nums loop
1 P/ z  o& R% \; d. N) G6 Y, \                Res:=sprint("Store_",i);
3 X; T+ ]4 M$ f! s0 _3 y                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
. R- ?8 s; e, p3 W                Obj.Label:=sprint("huojiaceng:",i);
5 B; y& h% p8 [' d* Z                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
4 i, W2 @: y5 B, G                Res:=sprint("StoreData_",i);
! |& a7 y& \; V2 B7 q( i. v$ K3 y               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' J$ _, G* |# n* x% l4 W5 f5 `                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
% n0 Q" [( x3 B9 o6 r                Obj.maxxDim:=WH_x;
) m- \3 E) Q: e4 U6 F! F                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
6 F4 ~/ p) q/ b" R- A) ]       
        .Delivery.MUs.Forklift.speed:=2;
, G2 B4 R+ M9 E9 h" c$ H        WH_var.delete({1,Part_Nums+1}..{*,*});
" z  L7 E5 `; w        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
3 d$ }5 ^9 q  R4 p" u        next;
5 U3 x! B9 f# Kend;
, f' u  w2 D7 t出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ I, W+ X5 a8 b3 M
: g# i6 Z- V( d  H+ M  n