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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
; j6 {$ F& P" A; |+ ~! v9 o% sis
! T  B9 F  @/ G$ a        i:integer;
        Res:string;
. y" S6 t/ e( E- R2 v3 s; ?        obj:object;
do
) D! i& A: e$ G        if existsObject("Status") then
                Status.deleteObject;
# _3 ?( M  W  G3 U+ r. E        end;
- G! _" p1 f- A) s/ ]. G        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
$ |+ R* ^& s+ J9 U( F                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
9 p' I- u: y, r) N2 _: V. f$ o        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
; h& L7 N* b3 Z; j7 \                Res:=sprint("StoreData_",i);
               
  x8 ?/ z$ l3 A) U                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
0 O9 Z! K' K! V  \                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
- P1 p; ^9 X0 [7 g, ^7 N9 O* ~                Obj.ColumnWidth:=3;
) O5 h- h6 a% p2 @( d# V2 E        next;
6 {$ P8 `9 ^  @, \) M% S       
        .Delivery.MUs.Forklift.speed:=2;
' t& |4 s( G6 g1 O/ M0 x# t' ?        WH_var.delete({1,Part_Nums+1}..{*,*});
+ d, L1 ?$ I# @, r& H7 }        for i:=1 to Part_Nums loop
! U- k) @3 U8 y4 B  @5 D                WH_var[1,i]:=chr(64+i);
, [9 ~1 c% J8 M' k        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

8 ?& ^) }6 C1 ~) ?