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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
9 Q4 q/ S5 L& V. r" ?3 d语句是这样的
is
        i:integer;
( z7 v  w% q9 v! D6 u2 l        Res:string;
        obj:object;
do
        if existsObject("Status") then
/ d( B/ ~/ k6 z4 H$ Z6 k                Status.deleteObject;
        end;
0 k; y# K8 y' b3 Z- z1 k3 S' y        for i:=1 to 10 loop
* K6 c; K1 n9 z% X* y9 T                Res:=sprint("Store_",i);
* u* z: A' P' `" {0 c* ?                if existsObject(Res) then
& p- P7 Q; c) X                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) t7 l9 {' o7 k$ G( m5 V        Obj.Label:="warehouse status";
       
$ y+ R5 R6 `) t  |        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
9 \+ u/ i. j6 G+ D8 C& a/ g: l( g                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
2 F& c+ K; z8 V; R7 @2 s/ r                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
' L% m  H, h0 `8 A# V                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ @5 W$ ^6 C0 S8 a& k                Obj.Label:=sprint("huojiaceng:",i);
3 X: {! A* F5 [4 j* Y+ u& B2 `9 u                Obj.inheritFormat:=false;
# ~1 O5 l( [* V0 o1 l& @                Obj.maxxDim:=WH_x;
1 I' B$ S7 U& u9 B' a# M  l                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
( Y% R. o# V/ g( d; _        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
' Z) P% J& P5 ^. b: T0 o- w' i- Z3 O! R        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
; m1 J+ |! o+ q+ s        next;
( Q) p. y' u) j+ c6 gend;
) X9 u! y4 P' d+ @出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了