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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
; e. |) `( T; L语句是这样的
8 {# X# s% N: r/ B4 Cis
! ~7 J8 \- ^9 E* \1 g2 p4 R8 F        i:integer;
        Res:string;
        obj:object;
6 P3 Z2 j# {- vdo
& H8 ^5 y. M" r# U+ w" e: q0 x        if existsObject("Status") then
                Status.deleteObject;
        end;
# E  t% D! N. P* |        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
( l  q8 w* b7 @1 R                        Obj:=str_to_obj(Res);
: e* Q1 b0 L9 k8 H6 u1 U- J                        Obj.deleteObject;
                end;
0 y" L! @5 H2 \, U0 F. \/ r        next;
- e9 W8 y4 u7 X1 E4 k" D3 S+ S        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 q; ~$ O. y1 [8 N; \; U8 l' u        Obj.Label:="warehouse status";
& V9 {$ x7 G) p& c/ U1 Y# g       
0 |3 l5 G) \! o/ G2 W3 ?$ F        for i:=1 to WH_nums loop
* ^3 m2 L5 Z7 P* `                Res:=sprint("Store_",i);
7 h% D. H0 @2 X                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 a6 x% j6 m: n1 [! E2 V- L/ h                Obj.Label:=sprint("huojiaceng:",i);
9 A. G8 S. C) g7 x- v2 q                Obj.xDim:=WH_x;
3 V& _+ L  o4 E# e! \  ~  Z                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
8 d6 ]$ \# Q* w; W; \6 p               
! t/ _, D$ \$ f$ T+ v& T                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
" k- c1 W9 D& S& l2 N                Obj.inheritFormat:=false;
/ Q: s& X# S* ?) f/ g5 O- K9 W                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
) u, k' ^0 a; p) g7 h' s        .Delivery.MUs.Forklift.speed:=2;
/ ^& [' A' g9 `1 c1 B1 W9 Z4 u4 t/ r        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
2 F# ~1 {7 q! y! j% Q7 F) a) T0 E                WH_var[1,i]:=chr(64+i);
* D8 r3 V: b, O3 c( S, N9 \+ R        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了