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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
" C8 J+ Z9 l3 d) X# z6 g        obj:object;
! z* x) c; X1 l. cdo
        if existsObject("Status") then
4 m( l% k! w" q/ j0 d                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
8 p" }0 U. f; Z) j* I  ]& _                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
, }7 p+ w, c5 H1 a                end;
        next;
$ J" d3 M3 ~2 u$ p, W        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' j  p% u& {! v* t: ?) o$ u, \, u* {! B: W        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
' K# v; x: M+ |: |                Res:=sprint("Store_",i);
4 O2 n2 o. d% M" M; r                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
1 b+ ?7 W( O, m! H: Q3 @0 r                Obj.Label:=sprint("huojiaceng:",i);
! W; E* j8 H- }& G; g                Obj.xDim:=WH_x;
+ T) |9 w, r* T/ ^' n                Obj.yDim:=WH_y;
8 x4 o4 |( R& l1 w$ |# N4 C                Res:=sprint("StoreData_",i);
4 n% n4 z* f' J" i; D: N- ^" s               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* W; y0 H" ]4 q# M: {  E& P                Obj.Label:=sprint("huojiaceng:",i);
# X; p5 c' H! J+ H! Q0 Q. L                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
) M0 ?8 `, V( D( X                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
8 R2 ?1 c0 y- {; Q0 t6 d        next;
2 r. E# f8 }# l) c       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
! G6 S! Q# b  N7 O0 _, d                WH_var[1,i]:=chr(64+i);
        next;
' E% G1 x& z: C+ Z  Z- l% qend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

: I6 a7 o7 F# q+ ^. K8 x