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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
9 m& R0 m1 S1 c# }& Bis
& G' p; W/ d+ y6 {; E        i:integer;
        Res:string;
( @5 {9 F) p& G; P        obj:object;
0 M; \) W6 c' L8 l  U+ @) ydo
# L% @7 t; Y- D7 k7 ^5 H        if existsObject("Status") then
; O2 L/ |9 ?8 P+ v5 s6 ~/ s                Status.deleteObject;
' O/ t' Q4 O+ f6 a1 |        end;
6 d- W; \8 L7 L2 q" H        for i:=1 to 10 loop
, }; w& i2 k3 C; v+ N                Res:=sprint("Store_",i);
4 m5 K1 ~9 ^0 @: s                if existsObject(Res) then
& o: D0 }% r9 F0 ~! q7 G4 U+ s                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
8 p& _2 A# ^$ ^: X7 `        next;
        --shengcheng Status:zimoxingceng
! x( x6 L" J. d- x        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
6 U; z7 y3 H. a% I% A3 K       
' h9 q2 O& b7 T: [) ^8 V  b        for i:=1 to WH_nums loop
  E8 z7 t, D: N2 R6 N( t4 {                Res:=sprint("Store_",i);
" i  g7 I" _2 U0 l7 `. [0 e                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( Q# E+ b$ o6 r6 F( y+ z! |8 R$ e                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
$ ^& C8 z( p4 Q  I/ r( C! B- p% R                Obj.yDim:=WH_y;
) i- l0 E  @+ F" ~4 S                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
3 p: G; r! c4 N+ }1 J) A' Q                Obj.maxxDim:=WH_x;
' E1 X* i; m' d1 n) L  S                Obj.maxyDim:=WH_y;
2 |9 ]4 s/ n7 z$ P                Obj.ColumnWidth:=3;
" u- H5 ~* T- B        next;
       
& Z4 [2 ^8 g& }/ \        .Delivery.MUs.Forklift.speed:=2;
: g  _7 n$ G( ?0 n4 m7 i1 E9 S        WH_var.delete({1,Part_Nums+1}..{*,*});
# ^0 `- O5 ?" A2 }/ ~, m% _; O  _  i        for i:=1 to Part_Nums loop
% }$ g" ^4 ?5 `$ G% S                WH_var[1,i]:=chr(64+i);
3 A. |& C0 w8 @/ r1 E; u# Z8 R' [        next;
# m" l0 P4 D) O- ]) k/ ^$ O# Yend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
0 ~7 `/ G: ]) I* h* f
6 X/ U& v- [6 }2 k9 W* B