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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
/ X( ?/ z4 z* p! G) ?5 N1 n        Res:string;
, G; c; j8 s5 l0 `        obj:object;
do
2 ?5 w5 _0 k+ Z$ W" X        if existsObject("Status") then
& @4 w3 |$ w6 V2 ?: i* R# S- O. A                Status.deleteObject;
4 m2 R4 Q+ R' i$ M+ w        end;
7 X( _9 J1 x% G3 ~# G) g        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
% T* s* R) e% n9 g                        Obj.deleteObject;
                end;
- o$ X# W% \2 `        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
* \( m6 ~& s$ c$ J* D       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
' }& m3 V$ v6 x8 B3 q0 t                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
" s2 I9 v' a- H) R) H/ J( z                Res:=sprint("StoreData_",i);
               
- J1 A. c" u8 x* Q0 P4 @4 e                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
  x) t1 w( o. k                Obj.Label:=sprint("huojiaceng:",i);
$ b& }# x( V" A* d9 }- o3 m                Obj.inheritFormat:=false;
5 `# S" c8 n2 b; O6 |8 C& v                Obj.maxxDim:=WH_x;
: C9 x8 {6 g3 C                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
4 ~# O( a/ E# ]/ C       
4 I- r5 T# i) |0 W. B. t3 s        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
3 j  I  X  J& I+ a3 P                WH_var[1,i]:=chr(64+i);
6 z5 Q  L; I" z% A# \, g* W; j8 A        next;
9 t1 @6 X: x! f/ pend;
3 o6 ?  N4 S4 Z* G! E7 G1 O$ E出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
6 M  w( s8 [# B