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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
7 v; C1 s! w  a" g! l4 J语句是这样的
is
        i:integer;
! T" e) r" I$ U% A: I7 q        Res:string;
        obj:object;
' H. y' D; g: o# Bdo
- q5 K9 N" P9 ?5 c        if existsObject("Status") then
                Status.deleteObject;
% O. n# X# r7 Y/ d9 K        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
6 @; I8 R* `! n3 ]0 }6 P1 E% g: R                if existsObject(Res) then
  W- |! _! e) c; S                        Obj:=str_to_obj(Res);
# J( Z) @" J% @1 u' B$ b# b                        Obj.deleteObject;
                end;
        next;
' C, e* x* M- K) ~% c        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
2 X- z% B) R$ f& U        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ x! x! |) |/ [# p' P                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
5 J6 }; m; I! K! N) ~                Obj.yDim:=WH_y;
( ?; F- O1 `$ J. C+ t) N7 d                Res:=sprint("StoreData_",i);
               
5 w% l( B/ T& H- Z- t0 Z2 X                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
* P2 l& k/ \+ q/ _0 x; J2 l$ q* ?( O                Obj.Label:=sprint("huojiaceng:",i);
- D: B0 V' z' F0 L: Q+ D                Obj.inheritFormat:=false;
5 e' B: t+ f3 q  l' {                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
; N+ b- H# l$ p3 Q6 g8 ]        next;
! \3 Q+ |5 _6 v% h; X       
* h! v1 u; T* ^        .Delivery.MUs.Forklift.speed:=2;
/ S& V* |& ~2 C3 j        WH_var.delete({1,Part_Nums+1}..{*,*});
( [5 p, ]# _. J, Z3 A/ j9 R        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
* W( e5 o1 a; t7 P2 x0 W3 ^4 L3 oend;
' G+ J% C& H- N* h7 b9 [: G出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

; U% e" V& g# M+ R: r