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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
5 L4 S" ]7 N5 E, R# {语句是这样的
) G0 O7 o8 ~- s5 G, B" q' pis
6 N8 o4 g: L' X- r        i:integer;
7 o- B6 ?/ J1 i        Res:string;
0 c, W9 w# e  K- T! Z6 ~        obj:object;
do
; V1 {- r. p$ U  a6 l; k        if existsObject("Status") then
$ y5 z5 G0 T; a! A" k" J4 \2 k                Status.deleteObject;
        end;
4 G6 ?5 s7 h- e0 J; T7 A  v) z- D        for i:=1 to 10 loop
' d3 B% y: r# n' S7 M8 W5 V; |" r2 ]4 j                Res:=sprint("Store_",i);
                if existsObject(Res) then
; q9 u* i7 M. T* i5 \0 x# v8 B& v. T                        Obj:=str_to_obj(Res);
) H5 m3 s, R/ w5 v5 u                        Obj.deleteObject;
                end;
        next;
& z6 p) q& [( z4 O" `9 M        --shengcheng Status:zimoxingceng
! S. U+ W9 Q  _8 w        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
  N6 k7 g8 w* v. x8 R) e6 V        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
, K2 ~, y% H  ~& _1 y& d6 g) x                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
) a  A$ L: |  H5 a2 R+ j5 t5 T                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
" t# ?9 Z# j, R# r  n                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
6 P! y( _6 z# O2 P/ K                Obj.maxxDim:=WH_x;
# v/ R: m  \2 a& q( C( D                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
5 R& z6 Z0 V3 n        next;
  n/ |* ]$ s8 m7 Y7 u" u0 dend;
' ]! @" A4 B' b5 {7 j$ H出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
9 k7 Q& \2 _& N$ V5 [
" S1 q$ E* F$ `) w9 O; z