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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
) T  G4 f. g8 |% n) g+ U+ Eis
        i:integer;
: b8 X' e; S- s5 w6 G* {        Res:string;
2 a9 {6 @  V7 U, c" t        obj:object;
8 S# K! C4 J- [; M5 xdo
0 L* u- A6 q* x/ \- T6 |9 a' ?        if existsObject("Status") then
/ q: a0 F! Q( t) k, M                Status.deleteObject;
+ ^5 Q; {; _. N8 p' m/ a* I; E        end;
7 I: Z9 Z. R% L; X        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
5 r4 i+ O7 n0 I/ }  M7 d& M) _                if existsObject(Res) then
" X. v% q7 {) C6 m  ~                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
/ K" O6 C* K7 I" \* m0 i                end;
- \7 Z) K) t" b8 \/ K0 g* G- p        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
6 }5 R. D' L% j8 O, Q' A( r        Obj.Label:="warehouse status";
       
5 k* D# a3 d5 {* I6 M; z        for i:=1 to WH_nums loop
- S0 B" L9 ^" P$ E' s3 }# K                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
  g( w3 P1 G( g                Obj.xDim:=WH_x;
# ~$ p+ h" v5 l) ]4 L8 N% D, `                Obj.yDim:=WH_y;
. k% {# C' I& Q# t                Res:=sprint("StoreData_",i);
. e0 f: K, I9 G" e) s  W( [               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ _8 M# x" r" f: r7 p: R5 H                Obj.Label:=sprint("huojiaceng:",i);
4 n6 U- @; w3 v8 {7 R: Q! |  j" ]$ k                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
, @8 K: v% S) T% m* W                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
) G# O1 q8 X% T$ x        next;
       
2 T7 Y/ T$ F1 N# `( D        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
+ e1 g# {$ L1 M; g6 l4 v1 `+ d                WH_var[1,i]:=chr(64+i);
        next;
8 C1 ~! a' e3 o2 ]7 K4 \3 P% xend;
7 V0 D2 z5 O/ @1 e出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" l2 s4 J/ B) q& I7 R