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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
: ?9 _+ u( z, f, V. f4 u- s' C语句是这样的
; c8 N! ^/ Y+ P; mis
        i:integer;
  d6 o# P  x* _        Res:string;
- j- _' f1 ^8 H# C        obj:object;
do
4 I  @2 v; `. n( v& I9 a        if existsObject("Status") then
                Status.deleteObject;
        end;
. n( Y8 Y" D/ [, u: o, c6 q  t8 ^/ n        for i:=1 to 10 loop
: V4 u- ~4 S" v                Res:=sprint("Store_",i);
                if existsObject(Res) then
: i! ?2 E7 q, w0 B) j: w# [# V                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
5 ?/ ?- ]  [3 z5 o) \2 F) F& }                end;
/ A- g, a; J1 V: V5 M% h        next;
+ C8 T: u2 i, v8 l( l  c, ]% ~        --shengcheng Status:zimoxingceng
1 L; H3 _. Y2 J2 ^( z" c0 e        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
! B5 C! K: O1 J# `                Res:=sprint("Store_",i);
2 _# Y* Y, V* e5 H! \; N                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& \- M  s3 o/ [$ v' }                Obj.xDim:=WH_x;
" ]* L8 o7 X. b8 B/ w7 h                Obj.yDim:=WH_y;
, o& c( K; [8 O: E, L# B- T; s                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
3 D5 l1 S, b% S( o1 f                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
. W* @6 _' Z6 O6 U, ]                Obj.ColumnWidth:=3;
5 Q. J1 U  E5 B6 b( v# r- V        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
$ U* A0 L9 w0 g3 f( h; l6 m" m9 M7 c+ m                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" f# j# m2 Q% W$ [  l" F  [
1 \  n* L. S9 w6 G( W