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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
' c# }7 n! H4 H' A( ~& I* x* c        Res:string;
# {: r2 p8 G- O' p        obj:object;
' k5 E1 V3 B( M" ?- udo
        if existsObject("Status") then
) b' @$ d9 l7 P- W% c                Status.deleteObject;
0 }$ B1 d& Z3 y0 ?        end;
7 y; }/ X- J: j7 B; j2 b* W* U- f        for i:=1 to 10 loop
& r# x. F. n9 A3 D9 P                Res:=sprint("Store_",i);
; A% Y* k- Z  Z# a                if existsObject(Res) then
% _) ~# H# w  h+ M. `                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
! c! |# A( L6 y( G$ n: P  E                end;
3 \8 @  ]' l0 h$ {5 E) }% {8 f        next;
1 s" k3 A4 f! j% n5 E+ E% b        --shengcheng Status:zimoxingceng
; b) s- q9 S5 y) f% I" L/ \" c        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
( ~1 C# j8 T9 |" v+ p        for i:=1 to WH_nums loop
! I) L% S$ r5 |8 ?2 U" Q                Res:=sprint("Store_",i);
+ ^3 S" n$ Q7 c5 o5 G3 Z# o+ J                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
3 F6 ^2 b. P5 L# Y* g5 x                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
' G7 x: B; s9 g, l4 x                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
2 n2 ~5 A+ r2 h! `- b4 j0 y               
, I2 H" O: @  E; W                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
% b) m  \# M: O  ]  f2 Y                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
5 L2 ]* V+ w" ?/ N4 G- ?8 w                Obj.maxyDim:=WH_y;
2 n1 @* _: M9 t                Obj.ColumnWidth:=3;
        next;
8 O: p. ~3 R& E$ G1 z       
; x% C2 a' g7 F$ W: B        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
0 n* [$ t4 E3 ^2 {- b9 H9 Z3 j* |        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  ?9 n7 `* `9 W
. v% d5 w8 C% L% F" \% h