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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
! o. @" Y; R; S/ ?& `+ }% K( Lis
        i:integer;
/ D8 m: x- T1 X! F0 Y: y. M  C. I        Res:string;
        obj:object;
$ H! A+ u- k6 K- Ndo
        if existsObject("Status") then
5 i' e9 {0 i$ I, B$ X; c                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
. n. |* a2 X) Q2 L- |                if existsObject(Res) then
# J6 U6 v7 j" T& X' j3 b& S$ j) g- z9 }                        Obj:=str_to_obj(Res);
; o  g. z+ J2 C, `8 }1 |                        Obj.deleteObject;
                end;
4 F* P& b$ L* X6 I2 y: w' Z        next;
2 O5 z; V& j* R$ c        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
( |$ R1 _% ?+ c1 }$ o1 O        Obj.Label:="warehouse status";
0 u! K. {0 K4 o1 Q3 _  z6 n       
        for i:=1 to WH_nums loop
; Z% `4 g9 }7 j/ G5 M                Res:=sprint("Store_",i);
. u, ?4 t( C* q! R. ]1 M& H' q' N1 h! i                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
! v/ U( Q% I! W# Y                Obj.Label:=sprint("huojiaceng:",i);
* J) E& Y$ u! L# F' u$ q. A! D5 g. }3 }                Obj.xDim:=WH_x;
6 A  l6 A/ |% C+ f# i- k; k                Obj.yDim:=WH_y;
7 q0 O7 P( G6 p( I" q9 Y                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
: Q9 d: h/ S% L9 d; ?: m0 K$ |) X                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
! P2 Y. P8 d8 P        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
! ?" Q# e+ s* v( {* p2 I- E        for i:=1 to Part_Nums loop
3 F: X- w/ H5 X5 c                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  p& B% r, _; o
# |; M! i0 _8 O