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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 C8 N- Y& n) ]" f语句是这样的
( L& S6 J4 b, M" T. Vis
        i:integer;
        Res:string;
        obj:object;
do
; B$ G! E/ h0 E7 Y1 e% n% v' ]        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
$ s$ D6 X1 ^$ m1 ]                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
8 _6 j& r  F8 [2 v; d                end;
% H1 \- G! Y7 I( D+ K) f; ^        next;
" L' t2 `$ V- K5 {% u% r) l4 g        --shengcheng Status:zimoxingceng
' _# c0 m  r) L" Z$ K; Y        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% P+ e! s3 o. V( f        Obj.Label:="warehouse status";
) J2 d3 p3 k3 I# ~       
+ K& ]; U) k2 E  u7 d# p8 w        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
3 i$ s0 Y; `8 j  E1 ]' a# _                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
3 Z5 S2 R" z+ W8 v# @               
) L8 l7 |8 c7 C/ Z' }/ E                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
7 C$ W. }6 l7 m3 w  K                Obj.inheritFormat:=false;
4 N' ]. a" K- @. u" C; w                Obj.maxxDim:=WH_x;
; ^1 K/ a" G/ L! a. i                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
1 y1 Q% [3 s0 [1 E0 l! g        next;
! ?' e( T+ z7 W% q2 w       
# X7 ^, W( @$ \& L' Y' e" q: O        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
1 ?: C2 w8 P& C  d                WH_var[1,i]:=chr(64+i);
, E, X, ^' X+ b% p7 z+ W1 H        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
; G& ~6 y) M& i$ s