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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
8 W4 Q/ Y2 k/ M+ Y5 M) Qis
        i:integer;
        Res:string;
        obj:object;
do
- \0 V: m- W. M( D. r& T- A        if existsObject("Status") then
7 d* x  z- J9 [9 c/ Z; T                Status.deleteObject;
        end;
        for i:=1 to 10 loop
, U' `* B* c/ i  O5 K9 u1 g                Res:=sprint("Store_",i);
+ x" W. w. K- ^5 }. Z$ _  F                if existsObject(Res) then
; z% B) V% K  ?                        Obj:=str_to_obj(Res);
- f) j7 F) W* z9 o2 ^                        Obj.deleteObject;
                end;
6 q- c$ ]) F# W        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
% E( g3 O. b& L) Z- w( P3 ^. p. o       
8 ~3 x) z. ~* k5 j/ z$ [7 s- {        for i:=1 to WH_nums loop
1 j& d; w- o# y% R* v4 P% B4 x% u                Res:=sprint("Store_",i);
  V' S5 _. r, z1 G5 V( N                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
6 t7 ?, y% n9 t5 C1 Q                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
3 w- j! m) w) A6 ?8 e: w5 c6 @7 I: Y                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# e2 ?3 `' M( p& |5 I                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
0 C$ [9 o9 U  `# ?$ ~/ p                Obj.ColumnWidth:=3;
        next;
3 A. Z6 ?+ h$ P- h0 ~' u8 M" W       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
8 L$ e  W. `( U( W        for i:=1 to Part_Nums loop
  I" s5 q4 {5 y2 `: d. }, ]5 S                WH_var[1,i]:=chr(64+i);
        next;
end;
$ h* q/ T. w- w+ [3 z" R出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

+ ]' D/ N7 B# V7 B" N