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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
- T: c& l2 `. P# W7 C语句是这样的
is
        i:integer;
# I1 n# T/ |: b3 ]        Res:string;
        obj:object;
do
! }. O1 p7 ?, x2 W        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
  w% Q, P. a: {# g, n) p2 N* O                Res:=sprint("Store_",i);
# _5 G1 ?9 }/ o, p! u- N                if existsObject(Res) then
( ^# {  j$ F8 C8 D$ e' v8 Z) Y* g1 X                        Obj:=str_to_obj(Res);
/ T2 [) z/ m( y1 o  W. ?5 _! S                        Obj.deleteObject;
* ~$ Z( \( J& F' c3 M: W                end;
        next;
3 c: g2 `( w% n/ j7 S3 K        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
; j" q7 S) h( L8 b6 U( Q        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
9 T$ S/ ^9 m' d$ w                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
9 s* Y" \2 U% s, }, M                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
- V" o! C+ ~% A- V                Res:=sprint("StoreData_",i);
* H" Y7 X& ?& a  z3 ~( ]               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, d9 J1 I: r. q                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
, C# q5 |7 z% c% P" Z0 |0 h                Obj.maxxDim:=WH_x;
" s2 |1 ?# }4 m+ C/ j. R7 @% j% h+ q' {$ z                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
% a5 \3 a: B# {        next;
       
        .Delivery.MUs.Forklift.speed:=2;
9 F" v9 e" s8 k2 _4 t8 Q        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
+ e, [# G. G' F0 r& S& y$ N1 `        next;
% T) Y& u9 G' _4 O8 K. nend;
+ q% j0 ^) l# d$ w1 _出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
9 b3 c# F" a$ e' Y* f- T5 Z6 S& B  q4 S" F
8 D6 P: x5 y% W* h( h/ V