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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
) K6 g# ^6 E% W4 @语句是这样的
is
8 V5 j8 [$ N% I) `' s4 Q4 y! _        i:integer;
        Res:string;
% L0 m1 J0 L8 J6 v% E        obj:object;
& R& E2 ^( y- J! k7 vdo
        if existsObject("Status") then
2 X( D1 K6 P) Y                Status.deleteObject;
7 s- l+ F% M, T% W8 [  c+ K        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
% t4 O# D; _  k+ ]0 o* L% j                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
! ?$ v# N! T8 ~- @) b2 c                end;
( w) W* O3 S% |/ Z$ k" B        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
2 [/ G5 \5 T0 f) g1 L        Obj.Label:="warehouse status";
       
1 N5 f: y* t0 a9 u1 i3 z* F        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
! x  y" o2 k- ^4 l. Q, F% G, f! C                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
( G* H# K4 j/ R2 s                Obj.Label:=sprint("huojiaceng:",i);
& X* u2 X! v) I$ {+ e                Obj.xDim:=WH_x;
: I' p# Y8 o% H; ?6 U1 J/ q                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
! A" O- }6 i6 @5 p9 ]0 B               
6 N, O; ^+ y* _2 N* o                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, p3 ^& v: G6 j% ^                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
- \" ]  B1 W7 y0 J# j' g                Obj.maxyDim:=WH_y;
2 ~) v- `' `! V! s3 b$ z                Obj.ColumnWidth:=3;
, U0 Z' O2 {; q. I- z        next;
       
# Y: a* G6 S7 z. ?  P0 Z) y, c        .Delivery.MUs.Forklift.speed:=2;
( r$ j7 C4 \" ?8 y( h        WH_var.delete({1,Part_Nums+1}..{*,*});
! T- _2 i1 e2 i- x" ]% p        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
7 G( Z" E& P$ L. ]        next;
6 H/ L7 Z9 ]. Qend;
' i3 U9 l5 U& L出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

' g% u1 G" p, u- w) Z: V0 H# y% P6 H