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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
* w1 e, n* T* `" B+ a语句是这样的
is
9 b! }8 `2 o) \  o        i:integer;
$ p) S; A% o8 u+ c3 r7 G& C: h        Res:string;
9 o1 z1 r( g1 A: m        obj:object;
& [* t( t+ V5 q* Ndo
# P+ K( D* D( g6 b0 m* H: S2 Y        if existsObject("Status") then
                Status.deleteObject;
* Z  X! l& k6 S0 h  o* y; N        end;
% e9 e8 Z% h- f# c" k        for i:=1 to 10 loop
" Z& H7 h( {9 V6 Z" a1 e9 i; c$ i                Res:=sprint("Store_",i);
- R$ H5 x% S7 a2 g! h8 G                if existsObject(Res) then
0 H. L  |2 J, h1 ~. h                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
1 c5 F2 T$ b2 o& t                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
2 C+ p1 G3 p) W7 k8 f, |7 t+ x       
        for i:=1 to WH_nums loop
. U* f  Z% B5 f3 m7 p                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 f7 s! b2 K0 @                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
3 L( K, _" k- G: X: R0 P4 J               
9 u! O) f4 O% `                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
* Z" \$ Z5 D; L, t                Obj.inheritFormat:=false;
) c  `" B2 F4 O9 R3 [; n' [                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
, r- u: C, s4 D! @9 I  b       
5 q; q' [- z4 g( C4 P" o* P# @        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
- V- m( h/ F# S: w; ^; @1 C" W        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" i# w6 Q" H' `