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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
0 J0 B+ g9 A9 n) E' Z3 v  sis
' ]) K6 y9 I0 @  |0 A        i:integer;
; b5 r; N) o9 Z4 u5 ?8 b- k7 m        Res:string;
9 ?3 C: Q" Y) v  O- @        obj:object;
do
        if existsObject("Status") then
8 V( V. e7 x0 s2 c                Status.deleteObject;
        end;
# z8 d, B* u; d% E: X- F( K  q        for i:=1 to 10 loop
. V' x0 D9 c$ J8 N! w6 f                Res:=sprint("Store_",i);
                if existsObject(Res) then
. T5 ~, h# ~* `7 W! A) M+ R                        Obj:=str_to_obj(Res);
# M; ?0 T7 P! x                        Obj.deleteObject;
                end;
        next;
8 P; e0 m1 D3 c3 c% J. j( q        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
+ v6 m' |9 N& f' R+ t/ y; ?% o; X        Obj.Label:="warehouse status";
       
( Y) f: P1 l9 P- X' Y" Y( R4 k' i( b: R        for i:=1 to WH_nums loop
6 z' G, X' b, a9 }6 `                Res:=sprint("Store_",i);
+ s9 y1 T% V9 B- G                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
: F* K4 e5 h3 S$ g                Obj.Label:=sprint("huojiaceng:",i);
  t6 L! b/ n) K( ~3 Q) W                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
' y% f" w" f0 E9 y( g& E7 F3 X               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 X9 ?' T6 Q  }2 s                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
. m" j- _! O" P: Z9 w! _                Obj.maxxDim:=WH_x;
4 N) ?: b; `$ t2 u7 b/ h: _  l  k                Obj.maxyDim:=WH_y;
6 I3 \- p0 |) _% o8 D7 b                Obj.ColumnWidth:=3;
' g5 h+ }9 c; Y2 y1 p+ ~5 g        next;
* U9 W: N/ ]: X/ T! ]) t       
: @2 H1 \) ^4 a/ x2 i1 Z        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
4 }$ n; W; X0 ~$ }0 e9 r9 o        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
  Q( ?* y4 @$ T        next;
( _- Z! [6 {- \$ @3 O6 W" @' x; pend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
1 X: Y' k3 W9 h/ R9 K1 @