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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
& o' v9 y$ H# c  `; g( i; Ais
        i:integer;
* \0 @  m# t$ D% b3 O        Res:string;
4 ?6 k. i4 C" f8 b5 m& U        obj:object;
do
        if existsObject("Status") then
/ ]6 l) k" n' Y( E- ?                Status.deleteObject;
% J5 t& D& C* ]        end;
5 ^  }& ^$ X+ q- ^, m& Z. t/ D7 b        for i:=1 to 10 loop
0 x0 r# M5 a; k- K8 }! L6 A                Res:=sprint("Store_",i);
& G0 G. E% J% J3 [% o                if existsObject(Res) then
; ^5 |% y/ V7 F7 i/ `                        Obj:=str_to_obj(Res);
& i/ d( J5 r% [2 ?                        Obj.deleteObject;
                end;
        next;
$ M+ }( u! ~! ^$ G        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 A! n6 J2 U7 g# N, Z" J- r; y        Obj.Label:="warehouse status";
  s  m( @0 W# p/ J/ f* b% S       
4 Z. w8 Q0 g8 d$ o        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
) b' x; I& a: N) u: g                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
4 G4 t  g. x0 v4 P/ L                Obj.Label:=sprint("huojiaceng:",i);
& l7 G$ M7 Z# C6 U1 a                Obj.xDim:=WH_x;
/ I) @$ \. f" W2 {5 U0 t                Obj.yDim:=WH_y;
( C6 n* {6 T: C* j0 ~5 P' O                Res:=sprint("StoreData_",i);
: b% C: a8 ^$ M# N9 ]               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
5 l3 ?* \6 C% T) e1 ^                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
. }, Z9 v- W/ A" m                Obj.maxxDim:=WH_x;
2 k. }9 V9 y$ ]" m" e                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
: {3 B. h3 b- ^: V) F) r. o9 b        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
7 [1 `6 C2 w, ^8 {        next;
# u, I1 w9 M1 ?end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了