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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
" p- C. p4 S; e1 `8 b9 c* Z7 ~2 \( A语句是这样的
is
1 d! T; u, v9 ~& ~! W- u5 o        i:integer;
        Res:string;
        obj:object;
do
& L) X7 T" x. u3 |! ^        if existsObject("Status") then
                Status.deleteObject;
        end;
  w( z+ M/ f- L6 {        for i:=1 to 10 loop
6 M# `5 N" w) P- ^( J6 H! P                Res:=sprint("Store_",i);
: S4 K+ P: W* c                if existsObject(Res) then
+ o7 |) Z& f2 m; J+ v                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
5 M& w0 a$ t2 W1 l2 n( m# N                end;
  r* M) T: a/ |4 Q+ O# u        next;
        --shengcheng Status:zimoxingceng
* ?) N. D' n6 Y4 U; \0 A% p- I        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
. Q- l" I# e! }                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
( _5 G, T; B4 W                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
# @% U- J/ M3 b                Res:=sprint("StoreData_",i);
               
  F' P5 T. @) R' ?# y- Q5 d                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
3 ]. Z  {$ c0 x3 p* R! W' d+ J                Obj.maxxDim:=WH_x;
' L! h6 Y8 x9 i, C* V$ r                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
# J9 @0 G, O8 {+ K) ?0 f5 R       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
7 j; w2 a% O0 c* q; ~7 z4 v, J6 F        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
0 |4 l$ U( S! x; ]" E5 z8 C        next;
end;
5 e+ j$ h* w: B出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
% f0 x6 V! Z. N+ b
, D4 ?* b! D6 d6 C* e8 a