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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
! ^/ G% E/ t. s( g5 t- Iis
  |: a* x; |% T# z% h        i:integer;
        Res:string;
$ u) D' Z! i; {' B9 p        obj:object;
1 B6 \3 b; W0 X: Bdo
- x, b- V" Y0 j4 V0 E5 u) B4 z1 r        if existsObject("Status") then
                Status.deleteObject;
2 ^+ r. p; @+ {( P) w1 D' l        end;
5 B0 K1 n, c/ t4 X3 [3 g        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
/ g$ I# r6 D7 v" h; V                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
: J2 d7 ~1 ]: D9 @1 j' R0 P        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
! J$ T: X8 }0 i2 |9 w/ X% }4 s! L        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
. Y. ~* v# s# @: t/ y$ Z, a% I0 j                Res:=sprint("Store_",i);
2 b* v$ _7 U- r, D                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 N/ b$ f4 A8 }& a( z$ m                Obj.Label:=sprint("huojiaceng:",i);
; F# d; ^( w' x6 l. M) i6 V6 K3 x$ Z; P                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
' c* @: Q" [( ?               
9 \5 E( o8 U' j$ T2 {! [' E                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
' [8 t* p* n# P* s) I) [) H                Obj.Label:=sprint("huojiaceng:",i);
  h; G4 Z+ H3 N$ A8 r                Obj.inheritFormat:=false;
4 a. u7 t; l! E/ |3 }* p) ~+ S                Obj.maxxDim:=WH_x;
/ x8 C4 |' ?6 d* r, B: `2 `                Obj.maxyDim:=WH_y;
5 s  k) V- Q; l                Obj.ColumnWidth:=3;
$ ^9 w2 F4 d4 Q7 u        next;
       
        .Delivery.MUs.Forklift.speed:=2;
, w% Q1 I) ^: F2 o4 Z        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
) |( Q0 w3 F" f& j                WH_var[1,i]:=chr(64+i);
$ |% C( Y+ X/ p& F* ]' ^( D. m9 o2 \. [' ~        next;
6 x. e) ~1 x- y8 C. h8 Tend;
. }4 w6 F7 m& _+ S出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了