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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
  j7 C! l, _' x! o* o. R( G语句是这样的
# }3 }( U+ {) h- s/ K0 wis
8 e* j/ {  k) Q% N4 E% k+ ]' T        i:integer;
        Res:string;
        obj:object;
9 L% ^+ c6 [' {8 h  M: y5 Rdo
        if existsObject("Status") then
/ A- W; D" ]0 b3 ]0 e2 ~( N                Status.deleteObject;
  b+ U; C# U6 p# U3 b+ ^+ p        end;
        for i:=1 to 10 loop
6 w7 E5 d8 j& I# N* B0 _2 d/ }                Res:=sprint("Store_",i);
& p0 z3 ~) D+ V5 U0 I- o+ t                if existsObject(Res) then
, |' H/ T; \/ O0 z$ I2 k                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
" R' t: k- @& W) A# J2 [7 C3 Y                end;
        next;
  Z" Q4 @( [" u6 j7 q        --shengcheng Status:zimoxingceng
6 j3 u% G2 z. N# I4 ~        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 _5 q* L7 f: H% n/ M& n' t        Obj.Label:="warehouse status";
       
0 S: m: u0 {% f$ ?        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
5 R1 R  X) i- P. J+ H2 J                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; V$ j. r6 n9 |- }4 j3 |                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
+ V5 |6 _! b$ u, a6 p+ D7 y. k& Z8 e                Res:=sprint("StoreData_",i);
  E9 y/ Y; k* G6 d  w; A9 B+ r3 m0 L, G               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& J% P: O  Z6 X- n! X! Q                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
& u2 x+ F6 j9 e$ `1 }, @' M                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
) d5 K- W  `$ K4 x        next;
8 j& Y* n" K* m       
        .Delivery.MUs.Forklift.speed:=2;
( Q% |7 f: X4 I4 O        WH_var.delete({1,Part_Nums+1}..{*,*});
# l, v- k2 C. Z9 c$ i: \        for i:=1 to Part_Nums loop
0 I& {8 f  c1 V                WH_var[1,i]:=chr(64+i);
8 l+ h; N: Z! n# j4 A8 q& e+ ^        next;
& `9 q8 y9 I- pend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" g- {3 q+ j" I( U; h