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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
2 w5 _' E/ W  l4 C6 b  j% O& x8 Mdo
5 Z, u9 r" _1 O+ T0 Z        if existsObject("Status") then
6 U3 l2 Y( \. B1 ?% b! o                Status.deleteObject;
2 b+ ?! O! t* @* r        end;
2 U" N0 j. |1 R        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
, X1 `) ^7 |/ x, v. E2 a' ]7 t                end;
        next;
* U5 ]' S/ s  Q$ {0 T6 ~        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
% u, Q0 U! S1 U8 d$ z) c       
* ^! w6 j5 G' F% |        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
$ b7 w, b, O" ?7 p% M+ @; ]                Obj.Label:=sprint("huojiaceng:",i);
. `) K: ?# @& k3 h; W) ^                Obj.xDim:=WH_x;
; U' ]- j/ M. z3 ^) x% n& l                Obj.yDim:=WH_y;
) s/ Y/ m7 z$ c/ I0 t$ N9 V" [- k                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" y5 o  ?4 O1 ]: v+ C                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
  w9 u* b0 C- q7 E% E5 L( S                Obj.maxxDim:=WH_x;
  W! H& k& z0 B; U7 M* U                Obj.maxyDim:=WH_y;
8 n- Y  B' y  t                Obj.ColumnWidth:=3;
' w+ [0 `3 S. D7 j) {' i# u        next;
       
3 `2 q: E( s0 ^, Y' \        .Delivery.MUs.Forklift.speed:=2;
! v" x/ y( b; p$ E: U        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
2 ]: R5 S. f: T, ^- O                WH_var[1,i]:=chr(64+i);
; @0 L& j9 z2 ?. U" T        next;
9 }8 S& J4 {+ {! H  hend;
7 i# ~2 Q5 t. O1 t) I出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
. w+ k" y. F2 p. G( u0 t/ r4 v$ Q% S