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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
8 u0 o* H* c! `5 v' x! r1 i6 O        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
1 U! }' o; t( ~5 ~6 l3 l8 ?7 r' y                if existsObject(Res) then
( ^( P0 Z- Z2 t% y& G0 x+ m                        Obj:=str_to_obj(Res);
- X6 @7 T# P1 D                        Obj.deleteObject;
0 W# P! }2 P, F# H; Y5 G/ m8 y0 d                end;
        next;
        --shengcheng Status:zimoxingceng
( T* Z2 W9 Z4 ]5 M8 G        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
4 V) J8 e) P2 n1 _. B6 Y: ^1 Y        Obj.Label:="warehouse status";
- f9 T6 u, l! I: F9 s) b6 [$ q# E       
1 G7 D" {9 B% D  E: [  b5 X0 [        for i:=1 to WH_nums loop
+ l& ?* T$ S5 t                Res:=sprint("Store_",i);
. D: N. K' j( Z                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
7 t- m6 p( y4 g$ P                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
. E% ]9 ~& ?! s' G; Z6 F  \# U                Res:=sprint("StoreData_",i);
               
( v  P3 K- W4 r                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 U6 M: {4 o/ O; X: A# R1 |& n                Obj.Label:=sprint("huojiaceng:",i);
0 M6 a$ m9 `% K7 l& M                Obj.inheritFormat:=false;
+ G8 G/ ~+ ^  _3 H! r! A                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
& i4 [: w; e0 T! f5 j                Obj.ColumnWidth:=3;
: s& [/ ]" n! v& }8 H3 r3 B, M        next;
       
        .Delivery.MUs.Forklift.speed:=2;
4 @8 f# H* @2 y& S, s        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
* }1 z3 P+ E: t; V$ s) Q                WH_var[1,i]:=chr(64+i);
        next;
5 b. L* W: T! A, eend;
+ }' G5 x" _9 u8 @4 a# L出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了