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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
& a4 W& z; ^, x" z9 J语句是这样的
is
        i:integer;
  T; Y# K7 m2 q' x5 }6 G        Res:string;
9 g; N& M. y! D" d" x7 I2 W        obj:object;
do
2 f4 Q6 v3 ^# Z1 F        if existsObject("Status") then
- u' M' F. k6 c3 M                Status.deleteObject;
+ L- [7 u9 z4 X0 g4 _        end;
        for i:=1 to 10 loop
; |! Q/ r7 m0 i( ?/ s) {                Res:=sprint("Store_",i);
0 A1 Q$ p4 x1 s; d1 O$ d5 S3 }  q7 P                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
& r+ C+ k/ n8 }3 A        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* W! [0 [9 y7 a: Y0 B6 |        Obj.Label:="warehouse status";
       
" f; U2 i- E( `# }        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);
% R. A& d+ E0 {4 ]/ e+ i+ D4 |7 A                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
! O/ e+ Y8 Q- J6 D3 B7 l! s+ }' d6 l( K               
  s, u" d7 ?5 ~4 ^* U9 r$ W                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
. J9 E/ _4 ^+ Y9 @6 x% Y3 m* k                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
' S4 P& P2 x3 x' W0 I                Obj.ColumnWidth:=3;
: H; ^7 |/ @+ x0 E7 w        next;
8 x4 j$ D: O4 N" \5 N+ J' v( b2 u1 p" E       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
$ F1 l5 k  X4 S9 r5 O        next;
end;
# T. W# ^8 G7 G& }6 K$ C% z出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
) u5 y5 f) S0 G: M5 d. \' A
* X) w  E* N) K3 {7 b+ E$ I