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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
0 M9 d* [5 m% Sis
( r/ W. _+ v& I7 H        i:integer;
, m+ B, V9 X1 v  }  T: V7 j7 D        Res:string;
1 u* e/ U$ x+ q3 Q. E        obj:object;
do
* Z- L3 O/ ]5 _7 P1 h        if existsObject("Status") then
0 f$ G: X, }% J! G6 k: Z) \                Status.deleteObject;
        end;
, ?* b: `1 t+ u; q) Q        for i:=1 to 10 loop
" T" X) Z, |. H* f! s/ n                Res:=sprint("Store_",i);
9 U1 f! D7 G$ Y+ d, i0 l) O6 H                if existsObject(Res) then
/ R6 a8 i) s- z4 f" Y1 K7 U0 w9 q$ f                        Obj:=str_to_obj(Res);
' Q) K) s/ @  j# H* m( {+ V1 M                        Obj.deleteObject;
                end;
9 U8 r* t# }' H' [. X        next;
        --shengcheng Status:zimoxingceng
) y2 p3 N! m. s/ k1 `8 ~  a; m        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
" {4 Y& z  B( g% N8 _                Res:=sprint("Store_",i);
% i( Z) |5 D* @3 E2 C! m' t                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 |/ z4 O8 |, }5 P1 L" k; ]8 O# n% l1 [                Obj.Label:=sprint("huojiaceng:",i);
2 d' g. H! r4 x: G, m! z/ ^- K                Obj.xDim:=WH_x;
5 Z' R  w5 L6 A8 i9 ?; t/ c5 \1 O. V                Obj.yDim:=WH_y;
; w# M4 o  x5 ^6 r5 \                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
+ G2 [  k& C. j5 R4 n" D- s& r                Obj.inheritFormat:=false;
8 X' T1 @7 A; K) Q* D9 n                Obj.maxxDim:=WH_x;
% q$ @9 q0 F# [/ l2 m. \4 o1 c                Obj.maxyDim:=WH_y;
+ d" f9 J  W4 }! D! U3 v! q                Obj.ColumnWidth:=3;
" U( V3 z7 {' @        next;
: ?- e2 m1 E! ]2 ]6 I& R       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
. T$ U; W4 v- H0 N1 p) I        for i:=1 to Part_Nums loop
' u/ U$ f2 z7 s1 H7 V1 c. ]# P                WH_var[1,i]:=chr(64+i);
" H6 h7 B+ u7 K        next;
8 g- z' A  d/ L; T, R% M, Cend;
4 e: a( x& R7 {: B出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
2 @: r8 \, }; ?$ i& i% O
, I1 i$ M0 Z! I4 h" k/ C3 d5 I% I+ i