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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
, A2 o0 k, y& [$ s7 i! ~) W! j8 s语句是这样的
; m; A: y& N% w- y) a* `is
; m4 Y$ t0 K+ U2 T        i:integer;
        Res:string;
        obj:object;
do
" ~; x% T! r4 y3 T        if existsObject("Status") then
! h. b% P8 m( G; }/ f. W6 g% W                Status.deleteObject;
        end;
" A6 T) X$ `+ V        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
& ~! E$ J& O# O3 l( m# [                if existsObject(Res) then
1 B- f  s, }! G2 M! M                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
* h! ^( m$ U: Z9 f7 Y5 T' S' v        next;
8 Z1 Y5 i/ b/ Y+ }: L4 ?        --shengcheng Status:zimoxingceng
6 C, g" O. u' Z$ Y* K+ z: P" o        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' L$ Y$ @: E, v- P        Obj.Label:="warehouse status";
  C! F4 Q, |. I8 f4 C# d; W, a       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 B' Q7 Q0 q0 G4 d' m                Obj.Label:=sprint("huojiaceng:",i);
, L8 @0 I4 V) |6 ~/ ^* a                Obj.xDim:=WH_x;
+ b: `5 D4 _) w9 x& a4 i                Obj.yDim:=WH_y;
: G  o5 j2 [) N/ N( k                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
7 R; \# l8 t+ b7 P* c/ W; D; l6 G6 [                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
/ M- z$ q0 f( c- n# s3 h                Obj.maxyDim:=WH_y;
0 l) _5 M! p4 d                Obj.ColumnWidth:=3;
        next;
# \: P- a* M4 W8 k4 H: L/ v       
/ x& E% _+ C3 y8 n        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
3 v  g9 j  g+ l6 _        for i:=1 to Part_Nums loop
# g9 g( m8 I% e  ]! w7 @                WH_var[1,i]:=chr(64+i);
! d) O" Y/ [# C& \. `        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
9 G' u) w9 i. f3 l
# k( j& x  T. c5 g% V0 a: z6 D) E