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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
( g! q1 P; {1 S/ b+ y% ]语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
do
7 b3 a, _$ w& P' |3 Q        if existsObject("Status") then
                Status.deleteObject;
+ q9 m3 n& x% n% y' r, d+ p, N5 q        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
% L) l6 E2 Q% [! s' ~- z                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
( G4 ~7 Z* A# i3 f7 p' T                        Obj.deleteObject;
0 Z" j4 Z+ p' k) R                end;
* f1 L5 s% `4 b+ x- e8 @! q! U" B! t        next;
9 b0 S5 Z* k0 ~# N) N' c* l- B3 ~        --shengcheng Status:zimoxingceng
/ Z. R* X6 I! D8 t% g  U        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
. \( N) o2 }. b+ \  R( ^                Res:=sprint("Store_",i);
# c! A$ k( z  p% P                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
: \$ B7 t; p. H6 s6 A% O                Obj.Label:=sprint("huojiaceng:",i);
& F: {) Q4 E: l1 S                Obj.xDim:=WH_x;
; O5 u0 z: ^+ y: ^! p# o                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# D" a3 _4 L. g0 V% ~9 E                Obj.Label:=sprint("huojiaceng:",i);
. ^- [" Z* f, l; |. g& m                Obj.inheritFormat:=false;
- e0 V- s# X/ n0 w+ ~) x                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
3 q' y4 M  t9 d- I/ }                Obj.ColumnWidth:=3;
9 J; i# A" r/ b( o+ ^8 T0 n3 o& x        next;
% |# V- `0 C8 w( t0 x       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
# I* |* T3 y6 X1 {2 W: p$ j        for i:=1 to Part_Nums loop
, e7 o" A, V8 A3 j+ ~                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

" v1 d( m2 k% ]% j, o9 i