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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
0 m4 J* z/ o! T. ^. G* j语句是这样的
2 S& o0 Z) s- q! _, W8 \is
        i:integer;
        Res:string;
; o$ N$ e( j9 i' U" t- }* C' C( a        obj:object;
& b; [4 W9 n8 o% l+ Hdo
  {9 A- j) K2 }8 q: g  V        if existsObject("Status") then
1 u# A3 B! F3 g& o2 b3 F! u                Status.deleteObject;
2 D% U& G" T7 S8 k! W9 c        end;
# i/ F! v6 p: m5 m5 k' o        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
/ |8 V5 ?9 X5 T                if existsObject(Res) then
8 e1 W2 n8 [  s" ]+ {% \4 Q* @+ L                        Obj:=str_to_obj(Res);
# S9 \$ w. ?4 w                        Obj.deleteObject;
                end;
2 V6 _4 D" p! l" r, E9 C        next;
1 `" j1 D6 ?: w        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
( S, S  `  ^- Y! _6 E! N4 M: C       
2 N# f6 {- c) H( Z; E        for i:=1 to WH_nums loop
; S) x0 W  ~3 G1 g                Res:=sprint("Store_",i);
" _4 M: a8 Y) l, {                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 E- g% ~, z( e1 n9 r                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
: x! z3 T+ j1 @1 u$ c               
/ E4 q* w! u% p* r2 J3 x0 @; T                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
7 w4 p. r( p8 T( ]( B- s+ ?9 i                Obj.Label:=sprint("huojiaceng:",i);
, {! F/ U5 C3 o0 z) B" a                Obj.inheritFormat:=false;
5 ~3 J* H0 z0 H! ^! W" R1 ?                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
9 l8 f, ~6 z+ T2 e                Obj.ColumnWidth:=3;
; t7 i3 G) p! E" h# N        next;
" u/ a* g- k3 n+ Y4 G, u! @* d9 o       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
$ n5 d  b' }8 v/ K        for i:=1 to Part_Nums loop
( ?; y8 ]2 `5 e% j# q# n                WH_var[1,i]:=chr(64+i);
/ }/ N* @, t; E  l, G        next;
0 y+ Q$ A: t; V0 jend;
0 Y7 u& T+ w& K* Z出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了