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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
& X/ a: i& a, V7 ^语句是这样的
2 E: R2 E# d/ h% Z$ g, K3 F8 _: v5 Nis
0 c/ H- Y0 m7 a$ Y+ v! `        i:integer;
        Res:string;
5 u, l! [" Q2 W0 t+ a        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
# k& u  W: w) X. c8 P                Res:=sprint("Store_",i);
$ @% \0 X, Y  `3 t+ z7 P8 j$ g                if existsObject(Res) then
! }: x5 J5 g4 g+ K$ ]8 a; b                        Obj:=str_to_obj(Res);
7 H* k6 d2 `- h) \                        Obj.deleteObject;
- g% p3 A. y! F0 F5 Q& h% J" `0 g                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
( S$ u9 }4 w" o0 d                Res:=sprint("Store_",i);
, o9 ^& A$ i/ C# I) }5 b                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 A4 B% E8 Q" G1 @/ {3 z4 O9 }% B+ X                Obj.Label:=sprint("huojiaceng:",i);
1 a. M6 j% h$ o/ s0 a                Obj.xDim:=WH_x;
- d& |$ x# V8 X4 [                Obj.yDim:=WH_y;
- }$ V) n  m& g7 [) O                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
4 n2 g$ I! C7 g7 V5 ~  L6 v                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
6 N4 f0 G0 V# b% X' ?6 N  [# C                Obj.maxxDim:=WH_x;
2 ~) E. w& w3 S. L  M2 J! F* U                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
2 f8 L$ X5 f, F       
; Z6 M: z. j- G) I! |3 H4 [        .Delivery.MUs.Forklift.speed:=2;
; {+ @( N, J( H        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
/ q& r% N; L9 n: p. A                WH_var[1,i]:=chr(64+i);
5 w9 K5 K& _* k        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ r9 W9 N* J# h) B0 u
& v: k( D% k7 n# j8 }- w1 N