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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
' G; d# V% ]4 y5 Y, O% E( |; q; d        i:integer;
& z. J0 a, ?. W$ U: J/ o        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
1 q0 x1 i$ A7 z5 F        for i:=1 to 10 loop
$ T+ |3 \, y$ c% I1 u                Res:=sprint("Store_",i);
% J* S7 k( Z+ ?" P( i3 G                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
* D, Y( u5 l7 f# D" J) V1 U        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
& x0 R. r3 W, a        Obj.Label:="warehouse status";
0 ?1 L- K4 O; c( F- |       
, y5 Q  _1 s4 ]% ~0 O8 u        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
5 G$ ]: o- ]* M) g                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
# v" S% {4 L, f! X& ]# o+ G. h- J                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
- ~; [$ O9 B% d) V: Y                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
/ f3 H) d1 ~) r; F# e- Z: N+ Q. F               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
5 V. \# x6 S1 @2 N# B% y" o; i                Obj.ColumnWidth:=3;
6 u' T4 K( a$ `9 b) [8 A; {        next;
  d8 A0 n+ |) n7 _4 Y, h       
        .Delivery.MUs.Forklift.speed:=2;
6 u) L, S5 ]1 |  q        WH_var.delete({1,Part_Nums+1}..{*,*});
% r" ?6 ?7 G6 l: z- a        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
  C" w: B+ ^+ d4 x5 C0 e' Q        next;
' M, g( f, l) l, Bend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

/ H4 U" E5 x/ _+ Y% q% h