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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
& P6 R7 p& K3 _2 ^7 g! U语句是这样的
/ K: m/ p: V" N0 X0 Z( ?4 j+ w+ U5 Vis
        i:integer;
! W% J$ x' t; r' Q9 f: |7 P. @        Res:string;
        obj:object;
* l& I- \$ P( C* s: R6 {do
        if existsObject("Status") then
+ K, i/ h& v9 x! u                Status.deleteObject;
! T% z. F, V8 J+ F5 x; T        end;
        for i:=1 to 10 loop
' _. D6 h2 K2 I$ [  ^                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
' ^: S' g: O, l2 M                        Obj.deleteObject;
: O5 j* R1 I4 C, ~% _4 C                end;
        next;
        --shengcheng Status:zimoxingceng
" A: x, g9 @$ p. _" c( D& i        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
! ]9 Z5 ~( d+ U) h0 E       
        for i:=1 to WH_nums loop
& Z$ l. a% ]) Y' I4 o, T  }+ V                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ Q3 j' G: ~* [) y                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
+ c1 w! }0 l$ q                Obj.yDim:=WH_y;
2 z  Q/ A+ N$ V1 R1 Q- x* v# e                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! K! Y2 q2 g- T                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
; I  l% h9 I% R; J                Obj.maxxDim:=WH_x;
6 C- G& P/ ^' i* I' K4 F                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
7 r. `: R! ^' f        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
' z7 H) o1 l+ S% d        next;
0 q" l$ {7 Q) [* d3 xend;
8 L$ t) A6 d  t6 p出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
* n! j8 p& y* K9 J( d
" i8 d1 b0 M# I: ^