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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
0 \5 ^5 y' C5 Z' L7 r) F5 @4 Sis
+ B# J* C# s+ e- S: {        i:integer;
6 }6 p& V2 c! U9 k# F        Res:string;
        obj:object;
do
- u7 k" ^) x2 I! V; v        if existsObject("Status") then
' L7 x  J! `" x8 n                Status.deleteObject;
/ m& G8 A, q; n) P        end;
2 E) A8 M" ^+ e1 _: l; v        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
( E% o4 \6 @# z  B& `                        Obj.deleteObject;
1 r3 e% Q7 L% _# C( b2 _5 j                end;
3 E3 e* p2 W. H* t3 X        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
& ]& u5 U# L  o! ?( i$ h8 N& |       
4 E: r! J0 M% ?& t4 w) Z/ q        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
( h3 n# B* f1 I# q, V" M/ ^                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
2 @; A0 z+ ?7 c% Q4 s9 \( C                Obj.yDim:=WH_y;
. I1 h, \9 ~7 {1 o& w) R                Res:=sprint("StoreData_",i);
4 |5 Z* a- f% C- [5 r6 h               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" |6 P* E1 q/ ~7 K1 t) N0 {                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
; m! i& G& |4 ^  K                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
" |4 j6 a) W9 }5 \4 k& o                Obj.ColumnWidth:=3;
, X1 H  J; M( |( q& U" A% O; O        next;
       
- K" G1 f2 Z1 N  I* Q' b        .Delivery.MUs.Forklift.speed:=2;
* C. _9 n* c2 y! G. G) o/ c# \        WH_var.delete({1,Part_Nums+1}..{*,*});
! e2 u7 F% u# [( N! Q. D) V; w        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

, V- I/ T2 |9 N, l  b5 g/ q! B