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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
: s: v& s) T! ?语句是这样的
+ A+ F( \4 Z5 S/ J# x) b% }is
        i:integer;
* k! R& S! C4 P        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
. M: o8 c2 X" q8 u3 T9 l, y                        Obj:=str_to_obj(Res);
; ?! P6 k; G1 _                        Obj.deleteObject;
& e0 K$ V5 \( u9 _7 J! f  z                end;
        next;
        --shengcheng Status:zimoxingceng
9 W2 @6 h2 b, ~; j& n3 c6 h; v        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
/ e3 i+ }; {+ k! _        for i:=1 to WH_nums loop
4 x" Q0 |, S+ _: d0 M' D/ w                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) [5 p7 e' m$ ?* s, P6 Q' n. k2 ~                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
8 B/ G3 O5 d8 c7 ?                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
  C9 J" b/ K9 j7 p, T( Z               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
" S. X. w0 r7 v( j) D  P: O                Obj.maxyDim:=WH_y;
; P, F' Q2 f& _) k4 f5 _4 a                Obj.ColumnWidth:=3;
        next;
) p2 t5 S' C3 C; @       
# n5 m, I+ e' ~9 ]$ {* m( z        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
8 z( m4 p9 S( ^        for i:=1 to Part_Nums loop
  X% h6 B8 f/ t4 @5 j# _' k                WH_var[1,i]:=chr(64+i);
- K  F2 A% K* P* a        next;
& T6 o; E/ H+ Z3 \& F+ Vend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
- x# u2 i* B/ X4 a1 e