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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
! Y8 F: q8 p7 I- v9 I3 c" v语句是这样的
is
        i:integer;
        Res:string;
( v. t6 W5 W/ |) ^' N        obj:object;
! f# x/ u& f9 r# j3 Odo
        if existsObject("Status") then
                Status.deleteObject;
: n2 N+ `' m- K( e: m        end;
        for i:=1 to 10 loop
! R; I  r/ G3 u* q                Res:=sprint("Store_",i);
- K+ s2 ?: X5 V# Z$ u7 W                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
2 [- r- C2 T7 R4 v* W& s. W, [4 k                        Obj.deleteObject;
7 T/ g& Q7 K- V& @; [# \                end;
& l5 U) G5 z0 ]! h4 l( ]1 z        next;
7 r  K8 P% Y9 P: P        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
. P+ ?( j0 f5 Q5 C' J$ C        for i:=1 to WH_nums loop
" L( t# c! h( V                Res:=sprint("Store_",i);
. A: u9 V+ g9 v                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
! H( C( P# z# F9 |; ~                Obj.Label:=sprint("huojiaceng:",i);
5 v7 Q5 l# b1 x) O4 a/ M$ d) |                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
$ {: i: Q/ S5 S# c                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, r1 E% `, U4 t' X% u# j                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
5 @2 f7 B' B  M$ F0 x                Obj.ColumnWidth:=3;
* h  w) @3 q6 f8 ]( T        next;
8 [; n  H7 f# X- f       
5 i9 N- L. \$ C+ ~$ |        .Delivery.MUs.Forklift.speed:=2;
  U3 a0 T# V; v' t3 P/ W4 f! X& s        WH_var.delete({1,Part_Nums+1}..{*,*});
& g; n8 [: i  p  x        for i:=1 to Part_Nums loop
* ]4 K* B1 h) X8 r                WH_var[1,i]:=chr(64+i);
        next;
& M/ A1 H& H$ B( c) K- ?* mend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了