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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
+ T/ O+ G# g" x$ v* [; q语句是这样的
5 p6 L) I) t9 N  {is
        i:integer;
) p; j' a' `6 O4 H: k1 T- n0 o        Res:string;
2 g# f6 g% b* ~2 p0 @        obj:object;
do
; h3 C! p+ ~) h1 E& O7 S7 y        if existsObject("Status") then
                Status.deleteObject;
& k7 n0 Y2 r) [# `        end;
6 U/ ~8 c: j# j% _8 V2 a% i" ]! r        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
& s" c$ L4 ?& d( P) Q                        Obj.deleteObject;
                end;
        next;
1 C9 A6 D% {/ a9 y! w9 b        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
' Q% n9 D# m8 c! u2 ~* ~2 E       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
$ b' L! C1 w+ E$ e3 r5 t* t. i                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) v( e7 S2 y( s                Obj.Label:=sprint("huojiaceng:",i);
$ R  f- W: d0 c5 t. j9 B                Obj.xDim:=WH_x;
( Y) i' B5 e$ h0 s+ _                Obj.yDim:=WH_y;
" i) }. r; g/ E& e% w                Res:=sprint("StoreData_",i);
               
+ \8 A1 G  g2 P# w: i1 ^  P                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ F7 m0 p% E5 u5 o                Obj.Label:=sprint("huojiaceng:",i);
; f( B& p& {; F$ c, v5 e9 h                Obj.inheritFormat:=false;
1 u2 }) t: h" Z) p5 W, F4 h                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
. ]; P& y, ^8 e, d( G' B( _       
        .Delivery.MUs.Forklift.speed:=2;
( H: Z. \/ ]# t- {# u6 h+ ?        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
) k# C# d5 q9 `: `5 I# ^                WH_var[1,i]:=chr(64+i);
& p; F% c3 P2 ~$ B8 H, S        next;
: L( ]9 F  Y' z$ f1 k& |* T6 Rend;
. q% q$ {  N8 {9 W9 }. u. `- m出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

$ R% h& G4 U5 j" U; H