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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
9 \8 |: |* p7 O! a& v语句是这样的
is
        i:integer;
" P$ v5 W3 h0 Q$ a$ ]. L        Res:string;
        obj:object;
do
        if existsObject("Status") then
' k6 d, T( W! ?, J% y+ v0 X* O                Status.deleteObject;
8 w8 \/ ^6 ~- a        end;
* ]$ s$ P; d4 @7 b$ K' L        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
+ c4 U2 ]/ r8 T8 y                if existsObject(Res) then
8 B1 E, c% S- x; @                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
5 y* d2 I& l) ?; k. E7 d                end;
7 M3 @1 o$ S3 ]        next;
  S' \0 d' z8 p# {. W        --shengcheng Status:zimoxingceng
5 r$ O; |8 C+ O* f        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 z/ _. S# Q5 v! Z# _2 ?( _7 B        Obj.Label:="warehouse status";
       
: ]9 J7 K; ~. @' K$ K2 B5 u        for i:=1 to WH_nums loop
0 O) |2 l" D, ~7 t* U4 D0 v                Res:=sprint("Store_",i);
% w3 s5 _9 Z* C3 V# ]                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
! s& |2 p) ~. f9 z/ c1 ?3 c2 L: }                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
+ |0 n/ b. _- y% u! [                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
1 A3 u; Y: x# A3 a: ^; ^3 i, h                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
% B* e( K8 Y* _9 H                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
9 u4 \2 H' t( s7 m        next;
  S7 j* `* Z2 ?9 C       
  m; O) P4 q7 q1 s3 a) J        .Delivery.MUs.Forklift.speed:=2;
3 g& V( |, e2 p' D! r2 A        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
& n7 {$ U/ n6 {% A7 ~, ]7 k+ D                WH_var[1,i]:=chr(64+i);
8 z5 S; ?; Z& \# w. r& [( l4 c        next;
9 B# d. T9 c; s7 H& Jend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了