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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
, q) E# _% W7 B2 Q4 z6 N语句是这样的
4 v+ a+ h7 W7 I  E$ Cis
        i:integer;
" {/ I7 l  f) q' ~! F/ U9 e# J0 M        Res:string;
        obj:object;
do
1 `! _9 R- {0 g: G% f        if existsObject("Status") then
                Status.deleteObject;
8 i. v' O- N5 Z& k& z7 U! E        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
5 r' v0 |4 @' X1 T+ O8 o) \7 V3 f                        Obj:=str_to_obj(Res);
7 ~& ?' h( g, r9 j  T/ }                        Obj.deleteObject;
$ U; V" p" {4 R* l$ V                end;
        next;
        --shengcheng Status:zimoxingceng
$ z2 d/ O$ _" `3 s3 l7 M        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' ^" @2 ?  y+ z2 b: _        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
* U' w$ `4 M5 {% e% x% Y, G                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
" T4 G, o; z4 B: E3 ?                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
0 j$ [' Y/ S5 X* i; s" L2 ^               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
  i# Z$ a. ]/ x! y" q) C4 R: s                Obj.ColumnWidth:=3;
        next;
7 m2 F6 p* U3 S( b9 q9 o7 z. w  b       
        .Delivery.MUs.Forklift.speed:=2;
& G/ c: A' C0 D  k. G        WH_var.delete({1,Part_Nums+1}..{*,*});
8 o' c) S9 u. D: k        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
2 ]4 g2 Y8 _- a! y        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了