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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
! ]$ @5 p& i% F语句是这样的
9 p- I: N6 d6 m& C3 \. ois
        i:integer;
5 Y* [% G. C! q9 X: D        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
2 Y( w1 y  @4 ]% h: N* o! v        end;
6 ]4 j9 Y  ^0 ], G1 ^* H1 m        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
: O& T, {: l# ^6 q% h                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
+ K/ c! r; H7 t% X                end;
        next;
# i0 ]% L! S7 c5 n        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
9 N" q: U: y5 t: {       
        for i:=1 to WH_nums loop
+ j# e9 V& ]" h% B                Res:=sprint("Store_",i);
, e0 @; J% k; Y. c                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
& P4 s6 I8 V/ z% \; j- E4 {                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
- a3 T/ _8 P  n$ }                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
6 G+ Q; @$ e8 ~0 \                Obj.maxxDim:=WH_x;
: u1 `! w$ g# U4 D" w( G                Obj.maxyDim:=WH_y;
! |' ^( D& T, X9 @1 a. d% t; g2 `                Obj.ColumnWidth:=3;
7 C& A6 F3 m8 H$ [9 W4 c( [8 |        next;
       
        .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);
        next;
end;
3 K# i. P$ J* l, n0 @- Q+ H8 X出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
6 b# P5 ~" L  K* T5 c6 e6 i
0 [! ~0 I; M4 z: T: D7 \/ q& t