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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
# g2 ?' V. M) K- jis
0 M1 ]8 H' J  M        i:integer;
        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
! o* D4 ?/ l7 M2 _8 h5 ?        for i:=1 to 10 loop
# W' R$ {1 b. J6 v! U                Res:=sprint("Store_",i);
                if existsObject(Res) then
& U! I  p8 m7 R' Y) E                        Obj:=str_to_obj(Res);
( Z  s- U3 x; d0 a- k& i0 A: [                        Obj.deleteObject;
                end;
! v7 U& {' J: p% e7 J8 N' @) x5 Q3 a        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% j* T) x3 ^- R* h8 I        Obj.Label:="warehouse status";
  |( s8 k( e& _       
        for i:=1 to WH_nums loop
3 J3 _) n* F  y9 h                Res:=sprint("Store_",i);
3 b" O/ e& Q" r. P5 V5 r4 G- k                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
" y" A1 k" p" \  I                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
4 y& p3 G/ T4 d. o% z1 D4 b1 q                Res:=sprint("StoreData_",i);
6 ]1 |3 @& @" [0 g0 j$ N               
: N1 v+ a2 o" {3 n2 k                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& e, F* M% s* @1 F% H. }9 h                Obj.inheritFormat:=false;
7 I+ z& @9 G. u; c" T                Obj.maxxDim:=WH_x;
3 j1 i" I0 {* U! l2 a" l1 c& q                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
, ^+ K* y4 m2 E5 O        next;
       
7 i- h' N: k# b! h0 d+ e6 @        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
% |# a  m6 u) z+ u& W! P        for i:=1 to Part_Nums loop
0 o% I& P5 t9 }- t                WH_var[1,i]:=chr(64+i);
        next;
% A* W/ C: _) `# M$ K% u0 Kend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
& r$ b8 v8 C* y% W