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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
$ R" x3 _- }3 b8 d4 o+ D$ d7 D2 z7 \        i:integer;
        Res:string;
$ {* o2 F+ O  U/ M. s2 b        obj:object;
0 T  A7 X+ b( s4 q( Cdo
        if existsObject("Status") then
5 }5 r1 t) D1 }* ]" L7 V; ~/ e                Status.deleteObject;
        end;
* i# K+ E7 S5 Q  N5 ~- r; ?        for i:=1 to 10 loop
+ Q  c: H; b1 v' u8 b                Res:=sprint("Store_",i);
* r. z8 {$ T7 M                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
  T8 E1 V1 W! `) g; p                        Obj.deleteObject;
% z; ^* n- I; C9 ~5 D                end;
0 m0 y" u, K# W" Z6 M/ E        next;
5 x, B" p' P, s' i" |* g        --shengcheng Status:zimoxingceng
6 }( Q; S% Y. X/ T( p. ]        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
7 r) A- j3 [0 `       
! Q7 b- q0 z- m& X# D8 |        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
% z# ~6 D, n. U, k4 i' T                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- J; S# w7 m/ V/ u; a4 _% e                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
! p9 F+ G$ V/ v                Res:=sprint("StoreData_",i);
8 M) z3 D; U3 ^* u* E% s               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
% _5 ^' I3 q8 Q+ {                Obj.Label:=sprint("huojiaceng:",i);
4 k1 t8 B7 P* }% q6 v) |' e9 u                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
8 R, `/ K7 C1 r; v2 E) g0 Q* i                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
6 X9 A( B  ~2 V4 e        next;
       
6 Q' l8 Q4 o# ^7 F9 ^8 I        .Delivery.MUs.Forklift.speed:=2;
. K9 X9 s$ x; d4 \& p  _2 X        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
# Q2 {" A2 q/ u; e& k( Y        next;
end;
$ t0 z( O2 S) m& W9 n0 S出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

, ?0 i! f. D- \( p5 B4 a  x. F