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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
1 U5 Y! a! m' a4 h7 i4 o/ [& Q        i:integer;
: r7 I3 W4 Z4 I6 k4 O2 _4 P/ W" Z4 d        Res:string;
' \: Z! h9 |( n; N$ d* [5 z0 G* X! Q        obj:object;
do
        if existsObject("Status") then
0 H/ J& K* B1 Y7 ~                Status.deleteObject;
        end;
$ y: z6 _3 g2 o7 b  C        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
. p, I: S9 g( o+ n/ D8 K                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
# \' q' i8 W$ D' u4 f                end;
* n  d9 s5 J/ x% L! @0 }, }        next;
  F( C& B; _& m. o1 v; d( n        --shengcheng Status:zimoxingceng
: i& _1 P0 A7 y1 I, v        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
" x' d7 O( m6 y5 c: d       
: o6 M  B0 I* K5 P- S: W5 S- E, S        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
$ @8 j4 u/ A6 H* m' }# L                Obj.xDim:=WH_x;
8 ^. I( j/ F" L' ?                Obj.yDim:=WH_y;
0 `0 P& m0 H( N                Res:=sprint("StoreData_",i);
% q+ B1 C, u2 T$ m7 M               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
; V2 c# p0 U6 }' u  w                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
# t0 v" O) q  E, F                Obj.ColumnWidth:=3;
9 K$ g! A  [% g0 e        next;
$ B( X4 l* P! C, l$ T5 s2 v       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
% \! A% a# I" E. a        for i:=1 to Part_Nums loop
, Z. K7 t# i+ n: f& I. H                WH_var[1,i]:=chr(64+i);
        next;
end;
6 j) M! ~9 q- }. T出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ H9 K7 {0 {( F) u0 m: k( d7 t
7 z2 r1 y5 G# ^