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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
9 k: |" v1 E7 Q* u5 P" D+ t5 j7 _0 l        obj:object;
- Q3 w; x) w: [. k2 v& V8 ~  ?' pdo
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
: }) N" l- b; l& R: s                Res:=sprint("Store_",i);
                if existsObject(Res) then
8 }) w  x$ |3 K* x& L* A+ h                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
, {0 v7 c, }% \) j' l: h( Z5 ^                end;
2 h0 {- J0 N/ ]% B        next;
        --shengcheng Status:zimoxingceng
9 ^. o+ K1 z+ k        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
- D- W" ?, A( k+ V" a) c       
        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);
' K$ Z3 j  w7 p6 X; I                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
' ~- r( i2 O3 R0 Q/ U                Res:=sprint("StoreData_",i);
* P) v- B$ P  j0 K' S8 n5 J               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& ~+ P" r3 _* b" t! @4 a  X                Obj.inheritFormat:=false;
8 Q' A" C8 d% ?( z- Y2 ]7 t                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
6 H* p/ @' U- n                Obj.ColumnWidth:=3;
        next;
' Z5 v) d  r* T       
        .Delivery.MUs.Forklift.speed:=2;
( T  u7 L" a" `4 p. G) S) f        WH_var.delete({1,Part_Nums+1}..{*,*});
, E/ G+ {$ K+ z3 _; d4 o' q( s        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
) k' M# a) y, T7 n2 p出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

5 t, q$ b* X; C& `( Q$ D