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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
; x. m: v4 p7 D: v' Pis
        i:integer;
        Res:string;
        obj:object;
- g( S& ^% N+ Udo
        if existsObject("Status") then
; |+ G) O9 l( c3 ^2 T2 S, k                Status.deleteObject;
        end;
        for i:=1 to 10 loop
/ @& a" V$ Z! R2 u                Res:=sprint("Store_",i);
6 e  z) N# @$ R) F& H                if existsObject(Res) then
6 S( r3 {' r3 l                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
8 {" V0 B% _6 u0 M# |                end;
- o! s# D# ~9 E% l% ]; b1 \        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
- `' r/ }6 N# f/ G9 H) n& q        Obj.Label:="warehouse status";
; f8 |1 H* Q# l0 I       
  p, [, z2 y+ f% F& i        for i:=1 to WH_nums loop
6 R9 C7 B5 N0 w8 l& m                Res:=sprint("Store_",i);
8 s1 d- W4 [( X% v( _7 H                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
: c9 M! `( H2 o/ m0 P8 x                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
0 o& Q; s* Y0 D                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
0 t2 J& a. O5 \8 z8 S& k                Obj.maxxDim:=WH_x;
. O' y; K' W6 T                Obj.maxyDim:=WH_y;
) ]; [5 @6 i) \6 n                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
0 |, W' P0 w& K9 |' w  ]0 {2 L        WH_var.delete({1,Part_Nums+1}..{*,*});
2 ]7 ~# }9 p" u/ _3 B$ J! X7 I        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
! T3 I$ s, r0 o' ]9 Z- w        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了