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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
' ~0 N9 M! a: `/ U* V语句是这样的
is
        i:integer;
/ ?& a% u) u) v! F- p( z1 y: F        Res:string;
8 J3 g3 x, _" _9 `2 f- S. S7 m        obj:object;
do
: }, N/ M3 m) r9 g        if existsObject("Status") then
& ~0 E& N" M3 Y* f; X                Status.deleteObject;
0 k$ Z4 _- Z, [        end;
, m: x, J# _, F6 o4 \/ p        for i:=1 to 10 loop
) o. A* n, j) F' \5 S$ `1 l! X                Res:=sprint("Store_",i);
  Y0 N. }+ q9 q# Z                if existsObject(Res) then
/ d' {) w! p6 i. @+ L. f                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
" e, P+ T4 a2 A+ L                end;
  q+ ~3 ?. l0 u7 B* `        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
- ^6 O8 y6 K4 ]        Obj.Label:="warehouse status";
" w. i: M7 L' V- t4 T! t. ?/ v       
$ |$ h( h" C0 s: X! n0 Z* J. |* e5 v        for i:=1 to WH_nums loop
/ \; n7 p5 \2 w  \. h                Res:=sprint("Store_",i);
+ [6 j( A6 o( Y$ L: C& Q                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
- J4 W' N. s' G0 {% N                Obj.xDim:=WH_x;
2 p1 G( z* G3 s7 n$ ?. o- u                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
3 I9 R7 X( y; D+ m5 Y               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
0 B! I4 X7 G8 Y& O                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
" z, K7 b0 \" l& o6 P                Obj.ColumnWidth:=3;
        next;
       
+ N9 x  y/ r! A0 f        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
$ s/ I. C( Y2 M# B0 E, R9 W1 I  |, F8 Q        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
  {' U; P: N: \+ @        next;
" `2 w; X  c* q( I2 s! ^/ _3 wend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

5 {3 X% d/ ?$ a# i