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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
( g. J+ v% @( e: T1 ^- B$ Z9 p        i:integer;
        Res:string;
        obj:object;
3 E, j0 [/ R! a/ `5 p" T" v# Ydo
        if existsObject("Status") then
                Status.deleteObject;
8 R7 m9 g, h+ B' z3 h# u6 ^& Z        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
# p' E/ d$ Y: t. e. N' R8 g                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
: b$ l( Z& V/ h& M0 A! }6 P, O/ ]                end;
        next;
) S) d% f& y; ?+ u2 e        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
! _( ]1 J5 Z( G3 U3 E! P# ~" y        Obj.Label:="warehouse status";
       
( N) M2 ]5 f$ e) B        for i:=1 to WH_nums loop
0 C3 N) R. y# m2 G                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 g+ t9 {) a, Z4 M3 p8 w                Obj.Label:=sprint("huojiaceng:",i);
9 c- S: @0 R, w( \) o                Obj.xDim:=WH_x;
* |( ~6 H9 e( E0 p4 W6 @. B; t                Obj.yDim:=WH_y;
6 h& S' o9 L; |7 E4 X# g7 x                Res:=sprint("StoreData_",i);
+ \5 M; _- S0 |& P( N               
- e4 k& N% D) D1 t1 m) m- M                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' Z7 e# R+ n+ _: I# H( B! z                Obj.Label:=sprint("huojiaceng:",i);
( a+ z- V8 _( L" j) W# _                Obj.inheritFormat:=false;
- g2 g, @4 H6 m' U                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
9 H# l9 b8 p: B3 U4 Z        next;
. B2 |* {7 U! a       
' r1 A$ X4 _4 a3 h, ]2 D        .Delivery.MUs.Forklift.speed:=2;
: s% K" z; s. K& |4 Y; y7 m. p+ [        WH_var.delete({1,Part_Nums+1}..{*,*});
( T7 n: G- \" r* }, W( T' ]" s, ~        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
  W) e$ b- v! {- q, _end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

- t9 Y( s% {. n3 |# Y- o7 \