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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
" x; j3 o2 H+ A" z, B3 G7 _! Z        i:integer;
        Res:string;
        obj:object;
do
        if existsObject("Status") then
. D$ `9 {" j) a                Status.deleteObject;
; [5 \( W4 w& ~* c/ q6 N$ y0 M        end;
6 m. I" \; J( }" c6 L8 j# y+ ?( q        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
4 a, a8 Z$ c8 S* t+ X6 R% e% O                        Obj:=str_to_obj(Res);
5 n6 p# e  ?1 m) A/ ~& M; e                        Obj.deleteObject;
4 l3 X2 K) a+ o0 c+ x                end;
        next;
0 I& H2 i  u1 n2 l; c; T        --shengcheng Status:zimoxingceng
3 d6 _( \& w8 R% a% c# N, j" T        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
( w$ l7 }+ x$ O8 Y- H/ Q5 u. r                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);
1 T# G( o; I% N( j! ]               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
- ]/ a, _( b* H4 k% r                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
. U& k$ `8 C2 Y$ D. _9 d; Z                Obj.maxyDim:=WH_y;
( W3 D0 n1 Y8 }8 @0 L                Obj.ColumnWidth:=3;
        next;
       
9 `  @! p! [: u        .Delivery.MUs.Forklift.speed:=2;
3 h" c( P+ _4 p3 [  M5 h, z        WH_var.delete({1,Part_Nums+1}..{*,*});
$ i1 T0 I1 ], ?        for i:=1 to Part_Nums loop
7 p2 e/ U0 M4 ]$ e                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
* }0 ~% U% e% s  @( G) I  q