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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
% m# U% r( b3 G/ z; r4 N语句是这样的
  ^8 \; s' S! \% [: _is
        i:integer;
        Res:string;
        obj:object;
* p; m% N9 N0 _1 l+ O9 I7 Pdo
' {) b( f" Z1 V2 Z# ~        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
8 I3 e6 X$ @% @  d; h. D$ _$ [: w                Res:=sprint("Store_",i);
                if existsObject(Res) then
' w. a4 \4 s, q5 R) O, D1 R                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
8 H6 H! Q  Y2 f+ Z8 ?) k                end;
        next;
8 {7 A3 V! Y# @# O" e        --shengcheng Status:zimoxingceng
/ S; R) `. w& K: u: Q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
# |0 ?. T( N! F; n8 p- r* m                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
( y7 A! h3 v" Z2 r$ x, F6 y                Obj.xDim:=WH_x;
+ P1 P( y% Y6 p6 M+ t( y# _( l                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 y* O% f8 O8 {0 m! @/ S                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
! ]+ z$ Z+ {2 f7 q7 n2 h& ^                Obj.maxxDim:=WH_x;
  b! J3 Y/ b3 M$ R) A9 u                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
7 T4 V5 @$ I$ a2 F        next;
       
  {* @- G: k1 w9 P' w4 ?        .Delivery.MUs.Forklift.speed:=2;
# t! j5 f' F! C' {# P" G        WH_var.delete({1,Part_Nums+1}..{*,*});
& f; K! b( s9 ]! Q3 ?) G5 J8 `        for i:=1 to Part_Nums loop
. r4 E" B) l7 w' E5 _                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
; s6 S2 w! g1 E; d1 o% }