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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
: ]+ y( e, @( \& o8 Y6 }8 [语句是这样的
9 K+ f5 B$ D( {1 W0 U1 F  Ais
        i:integer;
) T% D' s1 V" H/ [2 ?( C0 f        Res:string;
        obj:object;
7 L8 x* [# B5 O& ^do
' @9 Z$ r+ |% X* h, `        if existsObject("Status") then
+ |8 C2 J: Q1 l                Status.deleteObject;
3 m6 ~3 v- l- x$ T+ \        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
" G7 r- J, l* z- e  s                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
( X# f* m$ c0 X                end;
        next;
        --shengcheng Status:zimoxingceng
6 p- N) m) B3 k) H% C9 v        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
7 r" m- L+ C3 h" D  T. J* Q        Obj.Label:="warehouse status";
       
) b8 X5 ?3 y: v7 |$ a$ h( N4 d        for i:=1 to WH_nums loop
! X! u9 v# [4 g% g; A8 N4 }$ J8 @                Res:=sprint("Store_",i);
0 u; M4 i6 j- Q- z                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
1 \2 C6 F- N2 _5 z3 X                Obj.xDim:=WH_x;
+ T+ p6 }% H; n3 }                Obj.yDim:=WH_y;
$ }# A9 ^  r2 m                Res:=sprint("StoreData_",i);
5 X$ ~; O! E) f% ~/ Z! K/ j' l               
3 o/ h0 l* _# f9 a( b- |$ O                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
0 q9 C' R! e8 s; P3 ]" I. `                Obj.Label:=sprint("huojiaceng:",i);
! k  ~+ g- f/ {2 f/ O& ]( V! W                Obj.inheritFormat:=false;
! M7 s) c* X  P. \* q; E1 H* K                Obj.maxxDim:=WH_x;
& V: z' K3 L6 |* v% I; I* ]                Obj.maxyDim:=WH_y;
% t0 v% K+ k4 X+ W$ t                Obj.ColumnWidth:=3;
        next;
       
* r. ?0 p) H) {4 [4 |& i% N        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
6 e0 L3 M8 o5 [8 ^$ m6 o                WH_var[1,i]:=chr(64+i);
        next;
2 @' q% k5 M9 \/ {0 U! Pend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

: `( |2 }4 {7 E$ ^/ v