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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
9 h  e& f3 U, ?2 F$ e语句是这样的
is
! L: X4 A( _  @        i:integer;
7 G# b5 s( I+ t) |; a* C7 O        Res:string;
        obj:object;
$ ]8 @0 |: a7 t( Ndo
$ x+ g0 g* F1 |- _7 I" G' W        if existsObject("Status") then
( r; c9 u) I* C# I& S) w9 ^' \                Status.deleteObject;
# z! a8 w$ b9 m3 x) N8 V+ Z1 \        end;
' H7 p# }4 h+ Q' o" F  I        for i:=1 to 10 loop
  s  h' ~% v  ]: i! r2 ]: c. b                Res:=sprint("Store_",i);
) y) @  `) Q1 b                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
/ s/ G% D$ k, n; u3 [7 y, N        next;
4 U9 _$ ^0 x' z% l6 {        --shengcheng Status:zimoxingceng
5 Y. g: F, m/ [  Z        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
& S+ I  z* B# A3 L1 J       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
  h1 w2 x2 i8 j, U  `1 e6 J4 y8 S) }( r                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
! d* b' l3 }; N$ c# w! d* e5 @* ^                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
  ]& ?, |. z( {) F3 Z0 w               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( R/ a4 h5 k/ S( N2 h/ H* F( S/ d                Obj.Label:=sprint("huojiaceng:",i);
3 E6 C9 b6 t9 I0 ?4 t( _; V                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
2 l' C: O. ?/ G' ]% e) X4 ~7 f                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
. I* `6 Y! n* Y8 p8 s       
. S- Q/ a) ^2 B" x6 I" @. n        .Delivery.MUs.Forklift.speed:=2;
0 q8 u% H+ A8 c1 |. N        WH_var.delete({1,Part_Nums+1}..{*,*});
" X  j( T3 U3 a        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
( t8 q$ @$ l6 X/ d4 l        next;
* M8 W9 m! m$ A3 s0 M! d8 d0 h/ Nend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
% X' X) \9 n) V) X% }9 U
1 {4 G. S" n1 g& F