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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
# i6 I& D. V2 e, z2 K! X语句是这样的
6 M7 {0 _8 S1 {is
. r1 T$ u. O( x' Y3 a, x+ d        i:integer;
. q3 T0 y; ^5 H7 u: m5 \# [        Res:string;
        obj:object;
do
5 L4 g. e& b9 @! M! ^% ^2 E% u$ a        if existsObject("Status") then
/ B. c. U7 i3 H2 |% |2 Q                Status.deleteObject;
3 g' a/ [4 e# w        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
4 P: y( ]+ P2 E, M# h' N1 r( `/ A                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
* G, I% g2 O0 }' q* {        Obj.Label:="warehouse status";
       
1 R/ X) R( x, S. M        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
. R9 O3 v; j0 n& X$ _2 f) J                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
5 `3 E2 S: v2 l: y                Obj.xDim:=WH_x;
: d# r6 K" f' m5 I1 u! X                Obj.yDim:=WH_y;
/ s" K* D" z- o2 Q6 R9 S                Res:=sprint("StoreData_",i);
               
6 T; z# n7 }0 ]                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" P+ E$ ?- j$ j) r3 T3 D                Obj.Label:=sprint("huojiaceng:",i);
/ S9 S  e4 \9 M9 Q# n# g$ z                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
9 x& {6 A6 d/ l) m                Obj.maxyDim:=WH_y;
- N; W/ s8 [6 x  r* b0 W: r                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
9 E  U: n/ R7 S) I        WH_var.delete({1,Part_Nums+1}..{*,*});
9 p/ C+ z+ E6 L+ ^" Z' v5 S        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
  P4 B& l- N( y# V) @$ q6 i        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

1 Z/ g, I' }; ^- `1 K