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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 _+ w* I. x7 ]6 z6 U语句是这样的
6 B6 ?$ B2 I' Yis
6 I  S: ~+ i$ S2 ~4 m( w) n4 B        i:integer;
        Res:string;
0 v' u4 {4 S4 a0 F) K        obj:object;
do
! q/ b- c3 {# V        if existsObject("Status") then
2 f+ v# a8 [& l( n                Status.deleteObject;
( d& T- H9 I; F9 E        end;
" \+ Q' V3 ?1 i) e4 e$ }& G        for i:=1 to 10 loop
; O8 |) t) i( E) N$ J                Res:=sprint("Store_",i);
                if existsObject(Res) then
) T* c! `) \9 @1 d  J; L                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
3 N8 M6 l4 q# v                end;
9 m3 S0 U1 f5 ?5 n( i        next;
& M" M. d! |; R$ B  J        --shengcheng Status:zimoxingceng
2 T2 h: C! b, j- i! a( r+ }        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 B* G  W( c6 B: D5 ]/ [' W* S        Obj.Label:="warehouse status";
       
, @7 G. F& B: i" j7 a        for i:=1 to WH_nums loop
. n; L" S! m, s& |( X* i' q( T! Z                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- j8 j$ k& G. v# {- a2 \                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
, y. V; F: P  s6 G  s                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
& x1 f1 |- n- ?  J2 D% o               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! u$ o5 [7 {/ X- d8 d8 B3 E# q                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
0 p" Q+ a7 k% A3 x4 Y5 h                Obj.maxxDim:=WH_x;
3 H2 ^6 A5 D! z2 Q+ R/ t0 o- Z" t( b                Obj.maxyDim:=WH_y;
: O, [+ c) }( y0 ~9 t0 m                Obj.ColumnWidth:=3;
% S" Y% V7 ^$ x        next;
! o3 X* T) o# S) I4 O       
% }( y% q& [8 c; T. N3 B; F        .Delivery.MUs.Forklift.speed:=2;
4 o+ A4 j: Q. ?. i( o/ X        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
7 r5 Z4 M6 p5 R. t; G; ?1 F        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  d6 ^4 h, V6 `, p
. K  y9 N& d% g