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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
3 x" x# ]- r) w$ f' J语句是这样的
is
. e( v* J! ?* Z  ~$ C6 |& T1 C        i:integer;
/ ?# N& I4 ?! G& F7 w  E        Res:string;
2 c  J/ i0 ?; T* [2 H0 e: z9 z) T        obj:object;
! Q% k6 N( D/ Y( ydo
, b! `  Y! o5 [        if existsObject("Status") then
                Status.deleteObject;
$ `! y. g  j: p9 b        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
& a9 \1 D+ Z. l- y                if existsObject(Res) then
) Q) F! O- e0 P; j5 }+ s                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
: X1 F% z. D8 t5 r. ^2 L                end;
" ^% V" f5 L1 J1 N- L+ |  ?        next;
        --shengcheng Status:zimoxingceng
( ]- e: Y: T* A+ |2 Q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
# E# d0 N0 Z2 `4 Z$ \" I       
        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);
6 a! G, J6 |, t" N6 Z, n                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
' ^8 l" c% `. ~0 B+ U2 V               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
) p/ O- }8 A; g; E  @) E$ M5 L                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
2 i, L2 w8 l" e' @( D        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
7 n2 [( d0 d9 ^! y: ]7 k        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
( C6 @) k2 W% f& I4 I& Fend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了