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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
% q7 q& F* i& `. v8 c0 d语句是这样的
is
        i:integer;
. P  f+ ^( P& P  I& k) [3 E        Res:string;
        obj:object;
: g0 j: m/ _5 bdo
        if existsObject("Status") then
& P6 ?% u% s+ g: S% T+ y! f                Status.deleteObject;
+ v9 k  J5 b; |- D( W        end;
        for i:=1 to 10 loop
. z9 _6 p1 L9 R! Y0 A6 Y0 r                Res:=sprint("Store_",i);
* t# A2 ]3 B: h. l; `) r9 Q                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
# K' S+ _1 i' R; X7 l% E                        Obj.deleteObject;
                end;
- b& ]) D4 F" F: G' y: C; E        next;
        --shengcheng Status:zimoxingceng
: _. @  A: O7 j        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
0 l" |6 C: G; K! n) {3 Y- E        Obj.Label:="warehouse status";
% T& a! j% D3 L2 f       
; e. E4 R0 E$ t* u1 g+ i        for i:=1 to WH_nums loop
# l9 `; t+ o2 Z# P5 g0 G% `                Res:=sprint("Store_",i);
. V' a  q  w+ ~( a" @                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
- |2 H% P% o! U  G1 r: I0 c                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
2 C3 F! S9 v' t. V% h                Res:=sprint("StoreData_",i);
' x$ U8 F5 t& P               
8 h6 _% \- T! J                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
7 f6 X; H  y" N% E9 s& E                Obj.Label:=sprint("huojiaceng:",i);
+ [0 V8 z5 ^# `8 x                Obj.inheritFormat:=false;
% V! l; D$ c+ v8 w" v$ G  s                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
2 m6 {( X0 `" L+ Y. |" B+ E3 C8 s                Obj.ColumnWidth:=3;
+ t" a8 `; J: N* ^9 E' w( e        next;
       
        .Delivery.MUs.Forklift.speed:=2;
- u6 Z% S$ |. Q, e! A4 I        WH_var.delete({1,Part_Nums+1}..{*,*});
" f# f. w* g% r( ~) z8 J( S: |; @        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
3 N  h) _3 t* p+ R9 H        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

2 |' Y: |. f7 R+ b% {% \