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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
9 v- C- o' H) m! h/ M语句是这样的
is
- o1 j2 @, J& y. ?# P1 k$ t( O3 ~        i:integer;
        Res:string;
1 V. g1 p3 g0 R/ ~( c        obj:object;
0 A$ f' Q% d, Y7 Pdo
5 H" P& l9 {, s        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
0 ]2 ~3 }5 K% K  ^( D5 U                        Obj:=str_to_obj(Res);
& b6 V9 G+ F1 D5 p, |                        Obj.deleteObject;
& Q6 o) x. t& p4 ~8 A                end;
  V2 J) D7 V/ v& j# V. w        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
" f; g$ u* i2 O; Z7 ^       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
7 [3 Q. Y, f- E, n) @) @1 c                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
, c7 J" V5 z' |! P" F* S                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
; \& M+ t# G' L; q0 F8 n" A3 e                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;
                Obj.ColumnWidth:=3;
, X1 b9 @8 d+ W9 H$ i5 y        next;
       
        .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);
        next;
; m/ I, Z1 D9 B- \8 {. C# D" yend;
' J: R, L& i2 j0 C- O1 N出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
4 r: y; Z- d: C, e) }: p
3 Y. I) e. J4 X& u7 ]7 c