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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 |+ |2 o" G& f% T语句是这样的
is
        i:integer;
5 K4 v6 }  N# S0 a$ N. y% u' i        Res:string;
        obj:object;
6 l8 _! ~. L( A9 Q- ]8 m* Ddo
/ g8 z  m( f$ S0 C" v0 [0 S        if existsObject("Status") then
4 _/ N2 f' |1 T( G: F4 Z' U# l( f$ q: @                Status.deleteObject;
        end;
0 L' S! o- j& o# m. [        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
1 g" w1 C  `" w$ D                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
$ t3 E7 N+ P* |        next;
7 X; w# B7 b8 j. K        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
/ G# M4 R6 p' [& {  e        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
  x; s0 j0 c* s- q) ]                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& B5 G' m4 M9 \( D                Obj.Label:=sprint("huojiaceng:",i);
# H7 T$ X6 U% |5 n                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
7 ]% J) H/ h: W: |* Y% ~5 I2 O                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
/ x, P5 Y( j' m* {. Z8 Q( H( q! x4 V                Obj.maxyDim:=WH_y;
; a' L( C# W+ u: N                Obj.ColumnWidth:=3;
        next;
       
6 t2 o( u- O% B% W; l- j        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
( n5 c6 {' I. A, o: P$ T- ~- `                WH_var[1,i]:=chr(64+i);
4 a$ t! v+ S7 c  L5 N        next;
. p4 W1 R. P, U: M: W0 N8 Qend;
0 Y, V' v! C2 w: N; P出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
& B- [" c3 F; i; j
5 t+ s7 s$ q' @" Q! A& w  ^