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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
' f% l0 P0 E% x% l9 z/ ?9 \  x- r0 @语句是这样的
4 j! d5 _2 d2 i6 F! sis
& j8 T; U$ L" L" W: l  V7 M% t        i:integer;
% V! A: D1 [' I3 h; q6 O        Res:string;
) N! J1 n; p7 U% C/ y4 S        obj:object;
7 a7 Q, N1 b6 v0 J4 sdo
1 d% h: w2 c# u" n9 y; z. ?' C        if existsObject("Status") then
" y$ I4 F( @4 K2 ^; b6 I1 D                Status.deleteObject;
        end;
  U) b9 G  p  Z! K/ m. i4 F: m* Q        for i:=1 to 10 loop
* `, d4 B, Q8 ]8 E: M                Res:=sprint("Store_",i);
                if existsObject(Res) then
2 e( x, Z( H  P8 ?$ @, ^                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
- U* y' f' e; o  t$ V                end;
        next;
9 o1 t. z  B5 W+ m4 B        --shengcheng Status:zimoxingceng
6 @$ d& [, u  O- g# V3 z% V        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
  u; g$ e' Y( B  V* b        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
+ ?* {# i' t  p1 M% O) F! p0 \                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
$ F2 b( P4 G5 r4 G                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
& D% s; s6 F! k        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
* E' F% U- z5 k6 J7 j$ x7 _        next;
end;
: l# |. w9 i) r$ g- k7 x出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
5 v% ~7 x8 [$ O1 t9 X9 ]0 _+ w
4 D5 D& v+ V. @( L% ^( W