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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
6 y& h0 t6 s: p  v5 _2 H语句是这样的
is
        i:integer;
        Res:string;
# t$ ^$ P2 S/ }# q6 b) |        obj:object;
" b# W& X1 E" z& h. ~do
3 g8 f* A$ a( }' j        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
: D. K* c; T' D4 ~% r                        Obj.deleteObject;
                end;
/ h' e1 y/ z/ F8 n0 m4 b& R        next;
5 N3 V5 x( s& I3 r4 |! h: n7 c- j8 ^- T        --shengcheng Status:zimoxingceng
& c5 C( b- P4 z- g8 m0 e- z        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
# d' a- ]0 Q$ h# Y3 X4 F       
0 u/ i1 u/ J, Q3 X( R) s# \        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
. f; w- O" J: ?' k( V/ c1 q2 a+ `                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
/ e( ~, {; J# F( a5 }* n  [" _                Obj.Label:=sprint("huojiaceng:",i);
  q) b( l% E9 c( W: h. D( j1 t                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
* z5 j6 W6 L  f                Res:=sprint("StoreData_",i);
/ O( N/ g) A5 n' n; \               
9 |$ @2 Z5 {4 z$ \                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
3 |$ b8 Z+ ^2 ]                Obj.inheritFormat:=false;
9 k* ~3 Y. m! n* V# b  e                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
3 j& w6 z& U( o% m6 e                Obj.ColumnWidth:=3;
        next;
       
. Y' O$ G; y9 e* r        .Delivery.MUs.Forklift.speed:=2;
/ l. x# m* F9 ^4 s6 r+ o, b        WH_var.delete({1,Part_Nums+1}..{*,*});
% \* `3 l; V: N: N4 K        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
5 m; G- p5 r1 [5 m% ]  `: O" U  }        next;
- m- f6 m: E( U& V2 k4 zend;
7 Q8 V, l/ b* i* {) L$ m0 V, Q出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
7 f6 \/ B% n* Q0 ]/ m) J* h+ `