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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
2 a  ^9 W0 B* i7 {0 T* a语句是这样的
is
        i:integer;
  C# Z& q2 k( [$ @( k. j' [1 ]        Res:string;
        obj:object;
do
        if existsObject("Status") then
3 V( W& D$ i/ _) r* v4 v8 t7 Q                Status.deleteObject;
: F" a7 Y8 p" B% P' f        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
( U& q' I7 \) k  K$ v                        Obj:=str_to_obj(Res);
+ E2 s8 W6 D9 `1 h8 G! |/ }                        Obj.deleteObject;
                end;
* L6 ^$ g+ M2 l& B5 w        next;
( u  f. I5 H9 C& r& k        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
, h" @' D& m$ O3 s+ B$ y0 |0 M        for i:=1 to WH_nums loop
- H/ V+ I  \2 H( y5 T" @                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; T( c/ R& D2 Y2 W2 d# V# p                Obj.Label:=sprint("huojiaceng:",i);
1 O0 d/ s4 r( i7 S                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
0 I5 ?- A& l7 h  r. v                Res:=sprint("StoreData_",i);
1 V& I: m' m- ~* c! ~' M               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
8 F! w/ y/ B9 i* N$ K                Obj.inheritFormat:=false;
; t5 {3 W4 H, A6 \( Q3 w$ Y                Obj.maxxDim:=WH_x;
3 `0 j  k' U$ ~; @1 F- ^                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
+ e5 P; y1 ~. \' \7 B        next;
5 A# B# e/ |& ~& B       
4 y& T# \1 V" H3 X        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
) W+ `, K# O/ n0 c. F/ y7 i' B        next;
% p. V# @* Y' \end;
) w# r6 D' K: Z6 o出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了