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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 h8 {. \4 S; t5 D. c语句是这样的
is
, K; c( L8 C* u: M; c        i:integer;
        Res:string;
0 _% a5 g* \# a3 S3 q        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
! V; s7 r4 q# e# C% e  b0 G+ [, a5 }; f        end;
        for i:=1 to 10 loop
+ i5 J4 n0 q  O/ U                Res:=sprint("Store_",i);
( F- A- j# |7 `5 j                if existsObject(Res) then
7 z) @7 u& K: p' r2 \4 }                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
# M, _: h; Q7 J5 m% `4 T        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 F/ [2 Q. g' E  {        Obj.Label:="warehouse status";
$ s' v: r  [6 I+ g0 i, d3 {       
+ p! _/ b7 e& q, s& u2 k        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
, n2 p6 U5 j7 H' M6 r1 p( u                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; B1 L4 x2 I! G* F! I$ g* f; b& R                Obj.Label:=sprint("huojiaceng:",i);
3 X8 |% ]9 v4 h0 K1 |! Q                Obj.xDim:=WH_x;
" g$ m3 l8 J. H/ w                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
2 o3 f, W; j9 G/ L7 h               
/ X7 v% S5 _2 a) |6 C' ?8 e                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
/ X; E8 O& b9 N1 \! c3 [                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
; z8 t, m" `/ v5 E1 p                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
6 R, d  A8 U2 ^, q8 j! k                Obj.ColumnWidth:=3;
5 j; ~- e0 v/ Y9 ]0 l        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
; O3 U2 h6 _8 k' \2 w6 R4 i                WH_var[1,i]:=chr(64+i);
        next;
' a5 i: v. M8 _5 [; G% o  Q9 Rend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

. K: Z7 r9 C3 {" J