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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
4 W1 m1 @- D7 h0 vis
        i:integer;
8 ~( ?! Q, t/ o# N; {        Res:string;
* E0 x4 Z; T, c3 h& N; w+ e. o        obj:object;
do
+ o9 U- Q+ g8 g) l9 C) h        if existsObject("Status") then
                Status.deleteObject;
8 g3 a5 Q3 H9 O8 u        end;
$ d+ P$ I( Z0 s2 U" O        for i:=1 to 10 loop
' C2 |: }; b. ?; G2 [: p                Res:=sprint("Store_",i);
0 I. c: |+ h0 N: c/ u                if existsObject(Res) then
+ J* e# z% D  R* X( T                        Obj:=str_to_obj(Res);
, `' w, [0 D) Y. w                        Obj.deleteObject;
                end;
        next;
: ]* g" e" T  ~) Y7 E        --shengcheng Status:zimoxingceng
3 _4 C4 _2 N/ X' X0 s! a6 `        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
% G0 p: k: F  v% ^' \$ d: B       
! k* U/ c; |. ^/ R+ ?9 u% \# z        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
5 g# N3 g6 F) d) a                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
9 u, [6 f( y, @3 @+ o* H! v5 j                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
$ ~6 u. N: d9 ~# I* _                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
$ C. `8 |5 p- i$ V( c$ G( P                Obj.maxyDim:=WH_y;
! |7 A, W, ^" m0 U6 u$ x                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
- I5 j* ^5 A9 Z' x) I6 e        WH_var.delete({1,Part_Nums+1}..{*,*});
& D! _$ Z6 ~. L4 P5 U* |        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
4 L! M3 i. S# l/ N7 G5 send;
" _$ w) y$ K& ^1 {5 f6 R& W出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  E6 h0 O2 l! T- F- o8 E
5 i$ b, U( ]1 c9 c0 f, f0 ]