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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
/ T2 K1 y8 [5 t0 J8 y- n7 n语句是这样的
$ a4 X% o& O* u3 W5 F1 ^7 F4 {is
        i:integer;
- m) |7 o) s6 |6 H8 Q        Res:string;
+ `3 j& L! T/ H" J7 D) w! v. P        obj:object;
do
+ {4 I% T9 }3 u4 T        if existsObject("Status") then
9 w$ ~% C2 s$ l0 s/ ~                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
- N0 u& Y, l4 h2 X  v                if existsObject(Res) then
, r% |/ q) c4 Y' ?) t                        Obj:=str_to_obj(Res);
; R7 n1 p- p: ~5 F, M- [                        Obj.deleteObject;
; z& I2 ]! B* b0 B+ t                end;
( w$ V+ T& y, L: R% q% K        next;
        --shengcheng Status:zimoxingceng
- A4 x) z# V7 A) r( u7 A        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
, ]! ?) r/ ?  @# S# S. u8 D& x       
        for i:=1 to WH_nums loop
7 }  q- R" k3 c+ L                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
" ~/ ?3 @# C$ m7 O) }7 ^                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: [  [/ K' ?/ h* Y, d4 h* ^( d                Obj.Label:=sprint("huojiaceng:",i);
9 p. v" i2 Q- o' B" o                Obj.inheritFormat:=false;
% P9 S( u5 d$ O7 `1 [! N                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
+ J) v/ Z3 ]1 d0 Q        next;
       
        .Delivery.MUs.Forklift.speed:=2;
# p0 T) n5 v& q: a1 o        WH_var.delete({1,Part_Nums+1}..{*,*});
  o* n/ m. D6 p3 V        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
( a0 E5 g& y: ^' h! s9 ^end;
8 @( H/ w- @# o; H! y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  W9 u4 h& f7 C; z8 ?( P
! O7 t' ]. S  Z' U4 w