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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
1 y$ @1 u1 k" |, [& y1 I3 p( ~语句是这样的
is
        i:integer;
! p% ?5 f3 t6 W1 S+ y( ?+ p+ _' h1 i0 R        Res:string;
4 s( n+ G  H) _- O% B( Y        obj:object;
do
! F' [( M4 u6 V' O  l  f        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
6 I; A7 V1 I1 n* W" r* [; |                Res:=sprint("Store_",i);
                if existsObject(Res) then
' G- b. g" n* o                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
; n: P& a4 l7 M% b- i; Q8 H2 e                end;
+ n9 k! `. n$ |! n9 ~0 _9 B        next;
        --shengcheng Status:zimoxingceng
; B5 T' c# z9 P: d0 o4 q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
4 {4 C; ^4 H% N; e2 v& V       
& L& ?7 `9 y8 W0 m        for i:=1 to WH_nums loop
2 `6 @# \& ?0 r( E                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
! o3 p4 w/ B# |. q+ N0 d# F                Obj.xDim:=WH_x;
" e' z' m, E& T. R/ `                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
8 S2 L2 M: X5 p6 q& t# z  b  s               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! T, |5 n+ ?/ ~8 [. j2 z                Obj.Label:=sprint("huojiaceng:",i);
, M. h+ }+ F8 S: @, |$ I- @                Obj.inheritFormat:=false;
$ i1 P/ A% b7 F* [                Obj.maxxDim:=WH_x;
: i, D4 d- @3 X6 p! j                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
3 S9 v8 a: O% K" C% ?       
% v( Z8 W$ J5 _2 G; {1 ^( x' L        .Delivery.MUs.Forklift.speed:=2;
" r; |0 e( W! i0 o9 P        WH_var.delete({1,Part_Nums+1}..{*,*});
' E, X! p0 I1 b( |; g4 M9 O        for i:=1 to Part_Nums loop
# F3 L0 w3 h( N3 g) a$ r/ l                WH_var[1,i]:=chr(64+i);
* Z. U- H/ [  K- ~7 ^        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
; @$ T% p1 j) T" n
7 L. ~" u3 \7 [7 l