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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
4 ~1 u& J7 s* ?, t语句是这样的
is
2 \+ X' G' E, S% Z        i:integer;
7 k* c/ D+ Y) w2 E) p        Res:string;
        obj:object;
do
% L( Y1 i6 q/ S7 ^' \  n        if existsObject("Status") then
                Status.deleteObject;
2 _. r% K# c+ A& k* H6 h+ s        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
# @6 q, E: P+ V4 q  ~! h                        Obj:=str_to_obj(Res);
* L, ~1 {7 }- I1 f2 h                        Obj.deleteObject;
+ t7 t6 Y* g, Z6 N7 z4 X                end;
7 ^: n  \- N: {) R4 Y        next;
        --shengcheng Status:zimoxingceng
3 V1 f  M. m' c9 ~0 X; P+ [        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
; w5 N2 b8 ]6 U                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
" I3 I4 z( r) i$ r7 R0 {                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
2 J. W/ z  i: A' i: ?; v                Res:=sprint("StoreData_",i);
) Y- I( W* v1 ~9 C) s: H) x. \) X               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
; m7 R% e4 F; Z) G- L                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
+ K* C) l! I  c6 K                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
4 \  ^! f8 Z5 n( D1 v                Obj.ColumnWidth:=3;
% m9 R5 R) p! H. |3 y! n- O1 q        next;
8 u8 O8 H: j; Y$ q) K* T) u       
        .Delivery.MUs.Forklift.speed:=2;
$ R2 D( C5 Z0 p* T9 P        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
+ a6 g- A& m' I* J. V' F/ k9 N4 I, j        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了