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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
) i8 n) _4 f) {* f* A        obj:object;
1 t( W7 g  Y  ?0 P, Qdo
        if existsObject("Status") then
+ C! s/ x3 B+ f4 W; R, z# f) O0 U                Status.deleteObject;
        end;
        for i:=1 to 10 loop
# D- ^9 Z9 D$ s& F8 _$ P                Res:=sprint("Store_",i);
, j% j1 T2 a* z% E                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
2 [0 V+ d" B5 J                        Obj.deleteObject;
                end;
        next;
( F# [3 {# Y2 ^: s8 |  v, h; {& h        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
0 E' h: i2 h5 k" }4 V8 |$ [        Obj.Label:="warehouse status";
       
) k( l3 R. G5 q# o7 B8 P        for i:=1 to WH_nums loop
2 U6 p4 h5 P7 `; O/ `4 I9 |$ m7 q                Res:=sprint("Store_",i);
. I; p% {+ {2 p                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
2 V0 g% C% _* F% n  u+ p. s0 Z! O" f                Obj.Label:=sprint("huojiaceng:",i);
4 m1 \) e9 f3 G/ i0 u/ d5 l- b; s                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
. n- n% H7 R$ r- G) Y               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 j& m( O* x5 m8 P. p% n- x) g                Obj.Label:=sprint("huojiaceng:",i);
4 l! g$ z# g0 v7 c/ q( Z/ T                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
! u5 {. R2 y: ?4 u                Obj.maxyDim:=WH_y;
7 a# c2 u) U( r& w' ^                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
5 F3 m8 {, C, i( e1 C1 D2 x! Q# g        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
! S& r9 H' y  o+ q        next;
( Y) m) K- a7 W& pend;
. t0 z1 r- h- Z. M! f9 p出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

9 G4 y% f' H) Q' ]+ L0 w/ Q9 C