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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
* s3 m8 L9 e: Z% W% c# n- _  D6 o语句是这样的
% d' k* @" `/ @, Nis
4 S: _9 k0 _# K! {        i:integer;
5 G' Y' o- G# o! E: U* P" J9 V        Res:string;
: E9 \4 N0 d5 ^4 H! O        obj:object;
- z, ~2 f1 O& a( |do
        if existsObject("Status") then
                Status.deleteObject;
        end;
3 L2 x1 I) X3 F- C6 F        for i:=1 to 10 loop
# q0 R; p: M( m# o3 m                Res:=sprint("Store_",i);
                if existsObject(Res) then
+ X3 H0 s& Y+ S5 V( F- ]% ?                        Obj:=str_to_obj(Res);
3 [% w& J7 F- w! c- B: l                        Obj.deleteObject;
                end;
( Z1 r% P8 b& _' d# l        next;
2 \0 h6 T- P- E  m& T) a8 W7 D        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
5 D# W4 q8 `6 E; |4 ?       
2 l" @2 X3 j' m/ I! c  x9 m        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
8 f4 s7 B% G4 z7 b! {  A                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
+ @" v* {/ R0 s5 Q/ Q( _3 M7 [                Obj.xDim:=WH_x;
0 V+ g2 a( q# K% q1 e! W- {                Obj.yDim:=WH_y;
" M6 g- ~' A+ x( l7 W- g: |                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( ^$ \; F8 a9 w1 O  l                Obj.Label:=sprint("huojiaceng:",i);
' V6 F( e( q, s: V3 a6 _' G# ]                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
+ J1 J8 O# h* d1 o                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
% s2 m/ h# N2 S6 `( A4 l& n       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
/ N! f- o0 ^8 C+ W                WH_var[1,i]:=chr(64+i);
        next;
% m' v0 v" v. K7 j. t% Lend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了