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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
( s# l8 O5 V( n- k$ ^is
        i:integer;
# V1 H1 n; W+ k& Y        Res:string;
0 B! p3 {% F/ Y7 E5 g        obj:object;
do
        if existsObject("Status") then
  m! y$ m2 x+ n: {: ?* N                Status.deleteObject;
# H4 u, E) e0 b. ]" a        end;
        for i:=1 to 10 loop
6 M+ ?; N3 }6 N6 S. |$ K                Res:=sprint("Store_",i);
                if existsObject(Res) then
0 H3 E+ I  j; \* d                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
4 F6 v/ L9 T! B) D5 b' P" v        next;
9 J' J; S# Z1 x0 a9 v! P/ N. A        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
' S$ I. E- J8 Y1 X4 v1 [# g        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
+ P; @" c& w  x, y9 `) f* q# y- T- K                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
* c; }: v5 X1 H. J1 L                Obj.yDim:=WH_y;
& q: E! ?) z  K' B; W- I                Res:=sprint("StoreData_",i);
% A  g- `0 s- t3 X, d) a! r               
1 I+ y& a! w8 M. k+ V0 P/ F                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
7 n) f! I% |  |) H                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
) z7 l' r! p. b5 E7 U9 ]& Y                Obj.maxyDim:=WH_y;
  N, L- r/ F2 E0 G8 }" N" V                Obj.ColumnWidth:=3;
; T# F/ j3 O5 u2 c4 E9 Y        next;
+ K+ P+ c0 H' m: m       
        .Delivery.MUs.Forklift.speed:=2;
) ]3 G, e+ v  L- {, E) x: y3 S        WH_var.delete({1,Part_Nums+1}..{*,*});
' ?6 c& y0 _; \9 y        for i:=1 to Part_Nums loop
  m) c+ E' P0 h- s& p( D                WH_var[1,i]:=chr(64+i);
, O" y5 V: W& K. B& i  B        next;
+ `5 \$ `$ B+ h. s) X8 Z6 d+ rend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" A8 B/ }) P- n7 P( v1 u8 v