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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
: e; X- Y1 F) k" c! L$ K0 P. _7 f语句是这样的
is
  d* r0 B1 e% W( o" |% w        i:integer;
) D. E7 A) u$ m% O        Res:string;
1 v$ p7 A1 R4 N9 V$ x9 _        obj:object;
1 |: t# @7 v! I( P3 S; |, fdo
9 }# L% ?$ ?/ c* t5 v7 [& s6 ~        if existsObject("Status") then
* K$ p9 b! _$ ?( G3 O+ T! f) }                Status.deleteObject;
) [* z- p! O4 u  e+ T& d+ W        end;
        for i:=1 to 10 loop
8 u' Z/ N! V5 R* \: k8 a                Res:=sprint("Store_",i);
' z( F! L8 K2 d0 S& c                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
. S8 `/ Z$ ?1 X+ w) n        next;
% ~; @! Q" i+ L$ B. S        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
/ R* x3 z2 O' A) k0 w) G' _- x        Obj.Label:="warehouse status";
: A- E+ Z. k! A  m) k7 w       
        for i:=1 to WH_nums loop
4 M8 Z! p5 H7 E% m2 S, x                Res:=sprint("Store_",i);
. z/ m, }' O. i1 N                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
% ]1 e2 \% ^  v! x5 Z( w$ ?                Obj.xDim:=WH_x;
5 ]/ T( o7 ?$ f7 l                Obj.yDim:=WH_y;
' J; x9 f2 Y  S5 a% r: Y  w                Res:=sprint("StoreData_",i);
/ U: d8 A# |( B               
8 V8 {! i  S6 V                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
) M1 A' w) ]9 w/ Y% S2 ^                Obj.Label:=sprint("huojiaceng:",i);
$ j) ]2 X4 R- M                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
) i) \; V# l6 J- n& s4 C+ Q                Obj.maxyDim:=WH_y;
  j4 W4 J: V  [4 i                Obj.ColumnWidth:=3;
$ m! T6 n7 |7 U7 w3 L; x        next;
# O* j4 T' R5 N: O, R* ^1 b  {       
8 S! i7 q# X7 Z( e        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
: s8 p, A+ j+ Q        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
% l" G( X$ }  [4 G1 `end;
/ R4 q. u" Y4 q% u2 Z出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
; _0 J! S& u5 X! ~
+ s1 y) K5 D8 v; d