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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
% R; ?( B- T3 a. w3 N- v: A1 p- D语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
1 \9 p  t& q" J7 S# Tdo
6 f! Y) M$ t3 b) a! j        if existsObject("Status") then
* p9 G% ?. S( [5 e3 f5 i' T                Status.deleteObject;
0 T- ~" K: d! r: O# M, f. r" _        end;
8 b" k0 n" O1 D8 q        for i:=1 to 10 loop
% ~5 B/ {; r% c) ^3 h# n+ e                Res:=sprint("Store_",i);
4 K) P: k7 o" ?& J                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
2 |6 \$ E1 K6 Q  V$ V+ ^                        Obj.deleteObject;
% X& V9 b9 \& h$ j                end;
! ^# D: W' j, ~. |& I$ \# |        next;
6 o2 `4 i7 V& g* F; ~* k        --shengcheng Status:zimoxingceng
/ b8 L; v! [4 q- _4 K, p6 b: B        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
; y, _( g$ W/ Z       
        for i:=1 to WH_nums loop
4 B. @( @1 G  Z& U, m# U                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; q0 g+ ~% {: V- z! k                Obj.Label:=sprint("huojiaceng:",i);
' e: \( Q% v) }% S$ `+ Q* ?                Obj.xDim:=WH_x;
3 q4 ^3 Y! L  o. A! C+ m                Obj.yDim:=WH_y;
0 A# ~, Z* m4 h  W                Res:=sprint("StoreData_",i);
- i  v* t# [' ?+ P+ |* Q4 P               
" T( B4 V7 z: S                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& x7 X: X) |- _' B; y: _( [: G) z                Obj.inheritFormat:=false;
5 w6 G" X1 M; f/ \$ K+ H9 F                Obj.maxxDim:=WH_x;
* r+ E) J8 \7 }8 [% c" W# I                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
( S- s' o8 H: Y" i3 ^! i0 C9 i3 n        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
  @" q5 h3 P0 u+ B! t& t, ?4 W                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

# g$ s" P* ]1 b1 ?' S. x) Y