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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
' K/ d- j  ~9 s- [7 e% P( z语句是这样的
7 L  T; D. K7 p: F- c% }is
: C# R: _) a9 a+ Q* H1 ~# @! I: i        i:integer;
! o7 D# o! `4 p$ [( i2 t; n( P        Res:string;
; v) k( M8 S" }0 I0 |        obj:object;
3 l0 [4 H9 x% e5 y5 Gdo
        if existsObject("Status") then
                Status.deleteObject;
* k8 ?/ v) w* P% L) Z        end;
+ Z3 |) u" x( R" h3 L        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
! M. o6 u' Z$ U# \                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
8 n8 p- t* Y: N" m        next;
0 T2 a* G; L" G! g# e6 x: V        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
8 L% s/ U7 ~$ l        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
0 J, E0 z. O: G                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' k7 ]) {4 B0 G3 G! Z                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
/ H& _; m% ~# e9 L                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( l8 ]0 l8 v: ?8 l                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
6 O8 M6 \" J! D0 E& R5 ]                Obj.maxxDim:=WH_x;
# K# p6 I9 t. @                Obj.maxyDim:=WH_y;
5 Q2 r% S- O$ x% w                Obj.ColumnWidth:=3;
        next;
0 x1 ?6 A: [, _$ m, z0 H9 `3 e' n8 W       
' g3 `$ S- i, m, K- c2 u) R" f        .Delivery.MUs.Forklift.speed:=2;
4 u5 l/ k/ q4 T4 j        WH_var.delete({1,Part_Nums+1}..{*,*});
2 x5 ?& ?; W( O( B/ [3 t) f        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

, z! Z5 r% o3 N3 U' a