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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 p6 P; _' M2 f  c1 L语句是这样的
is
! `# a0 Q/ x5 w+ W        i:integer;
3 m1 g" a: h+ m. u6 k9 ~) c% X4 ^        Res:string;
6 X- Z3 z  D# ?1 n        obj:object;
do
        if existsObject("Status") then
9 [6 u8 V/ i+ B! ]' m                Status.deleteObject;
        end;
& y9 a% a+ J# u5 _: Z        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
1 \6 C# t2 I: R8 T                if existsObject(Res) then
% K4 ^2 _8 {  e                        Obj:=str_to_obj(Res);
' j+ U+ m) z- v% I- J4 K                        Obj.deleteObject;
                end;
% b7 O6 a0 P0 A& Q" J  w( B        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
9 z6 w! ]/ p/ m* [+ {: s        for i:=1 to WH_nums loop
* R! q! i' q" @6 p2 G; w* H3 m. P                Res:=sprint("Store_",i);
5 C9 c7 Q: x( |: }6 u! w3 R* C0 `0 u2 ]                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
) u1 j$ [  s' y! D! Z2 K; b2 R                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
6 a& ]2 x. ?+ f- {                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
2 p5 V# @1 S: p) c/ e                Obj.maxxDim:=WH_x;
. E- w0 _1 w* H                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
1 D* I" a9 Q' R2 N. @5 g2 a( U        next;
+ q5 H. b$ S# D  [  r! E9 O       
+ \; `8 i2 Y5 p2 o9 B3 }        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
' G8 r4 h: b5 E8 g; z: r5 E        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
: V  \2 a/ @. w0 U$ Nend;
7 s* G" k' b/ v! B* a1 J0 b& k出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

4 m0 t" k9 o# s8 I* e