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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
0 w  O3 E  H% C; V8 K6 w0 y语句是这样的
( V% G( m: A% S; ~4 k. j0 uis
        i:integer;
        Res:string;
        obj:object;
" M; Q$ @4 c3 b9 ido
, E4 `  W5 s+ S  H  E' K- U- V        if existsObject("Status") then
9 v& T+ [: Y1 G' {) l                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
6 `+ G" T& B; c: O) [& P                        Obj:=str_to_obj(Res);
. F! q! j9 q& z! m4 P  {                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
4 A, s$ i( U# q+ ^       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
0 r( ~5 j) P0 Z& _& U( D& X                Obj.Label:=sprint("huojiaceng:",i);
9 I4 q) {* H6 v# O9 H$ V                Obj.xDim:=WH_x;
4 G. \+ x. m6 g/ ]9 i, ]6 O* e6 y                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
4 L  {: y+ {2 N( Z               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
. x, b: L! F: M; t  N% \                Obj.Label:=sprint("huojiaceng:",i);
; n/ @: c, L4 d                Obj.inheritFormat:=false;
" F& D/ g5 z  b- |1 [                Obj.maxxDim:=WH_x;
- h' |& L$ q, {3 l" Z) w                Obj.maxyDim:=WH_y;
( _# `% \" ~$ ?& S6 }3 _  ^3 X/ V                Obj.ColumnWidth:=3;
$ m1 x8 U5 }2 g9 j. G  L0 X        next;
: h7 H/ X  F( b7 d( M/ |; @, {       
. _" \7 j# P, p) f% U        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
+ y/ _7 v7 G, l! ^, ?  z                WH_var[1,i]:=chr(64+i);
* ?: g  s& ]: |, s        next;
' W8 ?% N: J2 O! N% Eend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

( w, Q7 k, H% U0 V