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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
* a! I2 H+ g# M. x% y; o0 h/ Z1 J语句是这样的
is
" O* g, z/ B9 f) m        i:integer;
1 R' S; w' P* [' Q. {        Res:string;
; e6 F  O1 p+ a3 V" m' f9 Z: H0 V        obj:object;
do
0 r; `3 M, i* u' d7 j6 l        if existsObject("Status") then
9 b5 A- X5 R7 S) a, d                Status.deleteObject;
        end;
4 ]! O3 d2 S; [        for i:=1 to 10 loop
' N( r9 t$ Q. ?$ _- @+ ^1 M4 S                Res:=sprint("Store_",i);
( F, B, r& j( q7 f3 o                if existsObject(Res) then
$ P) `) }) ^% U! X                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
% F( v) q+ b8 z" I                end;
2 H5 k! l( t7 N5 A/ N! K        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
! q1 `2 U- _1 L( {        Obj.Label:="warehouse status";
; f& Q: T& v# B6 U/ p5 J       
- `% E0 ]' V+ R- Y. j% B2 Q        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
% C  g5 }& n# Y& q* Z7 e1 T/ `                Obj.Label:=sprint("huojiaceng:",i);
8 Q- Y" M& N0 }- N2 S                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
( S5 T5 i6 E6 K6 C) h" W                Res:=sprint("StoreData_",i);
# \+ q0 X; W$ Y; }: S$ V- {               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
1 K/ i$ e( r* C/ N6 P                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
( D. S+ @! o" K        next;
       
4 m1 }3 P1 w0 l6 H) u4 ?4 d        .Delivery.MUs.Forklift.speed:=2;
7 w0 Z/ L: n& ^7 d! v$ L! g        WH_var.delete({1,Part_Nums+1}..{*,*});
. ^! p: z1 N; K: X        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
8 B( E3 E" m+ D' W* _) I. f        next;
- l" u, \, @2 @; Y# R2 vend;
- e8 d: E8 J6 G$ f1 W6 Y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
1 w+ h5 Q' n: G
% h5 M" Q' `# h# D" s/ i