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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
7 e' E0 Q9 G& [) m语句是这样的
is
        i:integer;
        Res:string;
% ^4 [, ~+ N0 ~8 {        obj:object;
+ ~* D. A! l9 W) H3 m: X* f' w& V7 qdo
        if existsObject("Status") then
- W& L* I. Z; Z: B5 g                Status.deleteObject;
4 \* _" |5 I: l& y9 X- H# m        end;
        for i:=1 to 10 loop
6 s. p, C8 \& D- Y$ S                Res:=sprint("Store_",i);
+ f7 M9 x5 T# \* d                if existsObject(Res) then
0 |' A1 W- ?7 d; f( Q6 E7 m$ e                        Obj:=str_to_obj(Res);
: `4 ~( }  ^' n                        Obj.deleteObject;
                end;
* ~1 |" J4 ^7 i        next;
- J5 U9 g; Y/ M9 O; K        --shengcheng Status:zimoxingceng
! n5 b2 Z! _& Y+ _4 C$ B; ~        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
0 R% s6 m" h1 v$ J/ M5 L. K0 m# V* t        for i:=1 to WH_nums loop
! v7 m  T. m- m8 f                Res:=sprint("Store_",i);
/ D0 W, i/ q3 p2 z) m                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
0 v8 q2 v, H+ C                Obj.Label:=sprint("huojiaceng:",i);
6 l, B0 X" c, F  W5 C                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
+ z( b9 a& y7 _               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( I& l" d' K( `7 X                Obj.Label:=sprint("huojiaceng:",i);
5 U8 l2 o0 ?7 ^9 ?                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
, P0 N. v$ }2 J) N- ^; i                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
, N) @: i- f7 |- s* l/ \  d# y6 o                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

! }6 u: r! z$ }3 Z( T; g- }* H