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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
) D  C, C5 P% ^8 q5 U5 Y, _语句是这样的
4 k. w4 ?$ Y. H7 qis
        i:integer;
        Res:string;
$ h2 ]$ G& b1 L# l+ m' y        obj:object;
5 J, S9 k5 D* p, B. s3 H. Rdo
3 G  u" S+ i* S4 H7 C        if existsObject("Status") then
2 s1 g3 ~! [! k$ Y4 H' `% |' A                Status.deleteObject;
: p  a- t9 i- V3 N# S( w9 e* p2 g        end;
        for i:=1 to 10 loop
9 m7 z. {/ E/ }- v                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
: l3 Q* @- e0 e$ \                        Obj.deleteObject;
                end;
        next;
: X/ [3 ?1 n4 i; X6 i  l5 I' j        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
# ]0 D- {' a8 j       
. \, v5 S+ @- X+ c# n        for i:=1 to WH_nums loop
( w. t! L. l; S1 {1 E" Q% Q7 m                Res:=sprint("Store_",i);
4 U6 O5 b8 Y7 p6 f                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
: f1 \% E; D6 M3 }1 M4 H* J, M                Obj.yDim:=WH_y;
$ L  n! J% [" ^! E' o. I                Res:=sprint("StoreData_",i);
8 s% f+ {& D% m8 \& N               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' A% S  h+ W# X& v5 l6 J! @4 f                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
: e3 K1 j. A+ G2 T- V' c        next;
& f3 ]0 D* `; ?: n- N! C       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
+ H9 j8 Y1 f( s* G3 ^" ~4 C# h        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
" F) X  b6 J1 N) K2 _        next;
end;
% ?* V9 n' @% S出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
7 m- x: O! \6 a$ o1 H$ w- k
0 I! l$ q8 z" `! q5 ^& b: q