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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
+ q8 o& G$ \% ~语句是这样的
8 [! M) a# Y, @  u+ [is
        i:integer;
        Res:string;
3 ?3 ^- y3 p* @3 }# `. L* L        obj:object;
4 ^0 v( Q& `$ Jdo
: Z/ D- w2 N" _$ B        if existsObject("Status") then
7 e( q' l2 D) H9 G: R                Status.deleteObject;
4 K$ O  z. R, W        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
6 p, j! q/ v& v" g6 B. G, p$ O" g                if existsObject(Res) then
, ?8 J0 q3 m/ U                        Obj:=str_to_obj(Res);
) C( e3 e6 d8 u% e% d5 Q                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
; }3 q7 m% l3 M  p# n       
* C: j8 ]0 J. w+ `+ e/ f) b        for i:=1 to WH_nums loop
8 W  r7 O+ v3 z8 T                Res:=sprint("Store_",i);
  A* H" C3 y+ m1 M8 N8 A4 i                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
1 e/ Z8 B6 |; B5 x8 z                Obj.xDim:=WH_x;
0 B& I9 \4 W( H2 M  X                Obj.yDim:=WH_y;
3 j( z$ E0 _/ V0 S                Res:=sprint("StoreData_",i);
0 g1 t. N! `) Y- y               
9 @  g- A- ~/ Q) F; Y2 j                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
' q9 V; E, W) i                Obj.maxxDim:=WH_x;
. A8 n, ~( J, V; l+ D9 F( ^                Obj.maxyDim:=WH_y;
$ R" B7 M; ?* |7 `9 k% x' j! e: p                Obj.ColumnWidth:=3;
. O  S% v$ n4 ?1 X! T  j        next;
5 \- M0 G1 n$ D3 G       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
: |" p: u, ]6 L& z0 ^. A                WH_var[1,i]:=chr(64+i);
        next;
# b) l2 N* ?9 y; d+ O0 @9 wend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
9 e6 s. U6 V7 b/ G# K- S/ Z5 t! j$ X
' C# g% l. }  I* v, L$ n