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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
3 {+ N; Y' {$ m2 m( ]is
8 y1 ]# B1 m* ?; y2 O$ F% q        i:integer;
5 C) d3 Z* X7 g% o9 R- u        Res:string;
" j% z" \# S( ?5 }9 d7 W5 S        obj:object;
) N: v3 _( k2 I* xdo
" W3 B; u" q5 y9 r. V2 I; ]8 u        if existsObject("Status") then
                Status.deleteObject;
/ A3 l& G3 I  y- i3 N; T- `        end;
( U+ C' J+ {' e( {/ ^        for i:=1 to 10 loop
; s- @, P% k7 @  ^1 M                Res:=sprint("Store_",i);
                if existsObject(Res) then
/ D& H! G& W7 ]) h" O; G7 s4 G7 z                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
: S% ^9 U: }3 I" u/ I9 {$ K( h5 D        next;
% P$ q4 l2 s# T: h        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
4 U0 d/ \: U9 t/ a( A        for i:=1 to WH_nums loop
9 C& O+ h6 C0 c1 D. N                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
+ U5 H. A' D" E1 e+ D                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
, C- R" W+ q) e                Obj.yDim:=WH_y;
; m4 e% e0 t; `/ ]                Res:=sprint("StoreData_",i);
% V! Y1 F$ D4 U- {, L               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: S# j: w+ l8 }2 H; u0 H                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
$ c1 J* U. t2 v3 x        next;
. W# G2 C% K2 x       
1 L" T0 Z. j: Z0 g7 X        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
* y4 M6 g3 ]0 |' W1 Y        for i:=1 to Part_Nums loop
9 N1 `3 E! m* ^                WH_var[1,i]:=chr(64+i);
4 M* H5 H. S. u% x7 ?* o, S, p) a        next;
6 d2 @% I3 A- j9 A9 a8 `* b/ k6 V+ Mend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了