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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
9 H: V4 Z9 n- H' [0 r1 \is
        i:integer;
- H+ E! _9 f1 t+ V( [5 U        Res:string;
        obj:object;
do
( Z1 J+ Q+ E' A; z6 h8 h: |! i        if existsObject("Status") then
. s5 |! h" a$ ]5 q' v9 E" a                Status.deleteObject;
/ P6 M6 c' ]% D4 m1 [        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
0 z* |# j# G  L1 R9 s                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
3 z! H! U5 o3 M1 {3 u" |        next;
9 b/ `4 x: b" \6 _( `: x3 K7 V, _, l        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
3 D2 H) ?# @" @2 V                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
' r' W, l0 Y) ^7 y7 U' g$ S& D2 U6 M                Obj.yDim:=WH_y;
/ @+ V8 ~; q% p. w, Y+ e                Res:=sprint("StoreData_",i);
               
8 ~+ X1 Q$ B/ c, g( e% k                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
, |. \3 i  Y8 |# Y3 O5 K                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
$ V* y. j+ {- l% n                Obj.ColumnWidth:=3;
. H% j3 `. {7 u" t2 v" @3 _5 Y        next;
       
) z, d0 a# `- u7 r        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
4 A+ x0 m( E. E3 i* q2 Z        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
+ K+ {1 [& i2 V        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

- ^- u& V# F3 g* b. {% J