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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
8 Z% E+ C- C3 V7 v6 P语句是这样的
4 ?- Q  n5 k0 n. l- q! Y  G, ]is
        i:integer;
        Res:string;
* Y; S8 K' N3 S: w6 ?        obj:object;
+ j3 \( `7 n6 {% G# pdo
        if existsObject("Status") then
                Status.deleteObject;
: x+ C5 w& S6 Y! B8 [* \6 F        end;
2 ~  S4 c, T3 h! j8 [        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
" T! U* x4 S: N5 g, c) P+ R, c                if existsObject(Res) then
6 [' s* a8 W' t4 E4 J3 r. n  Y                        Obj:=str_to_obj(Res);
. h9 D( I/ S$ S# E, Y                        Obj.deleteObject;
6 P! c7 D0 ]- N" J7 n                end;
        next;
# Z3 P( n4 h% n) y' v+ a3 `5 |        --shengcheng Status:zimoxingceng
4 j# O- u/ i: {9 _4 ?* T( I& Y& j        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, \& B& G# C. A) X. ?6 Y        Obj.Label:="warehouse status";
9 s  {: O- g7 e       
        for i:=1 to WH_nums loop
/ f" N. j# s  k- g                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 H: n" v, ~6 \( i* x( f5 T% J                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
2 a' _" I  _+ ?$ l! {( W                Obj.yDim:=WH_y;
+ ?5 ]' J/ T; ^# [' r' Q3 G0 r4 [                Res:=sprint("StoreData_",i);
               
" u1 E& R1 F* z                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
5 b; q" ]. i+ T) n                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
) n$ s. g, o) T9 ?! C4 O* W        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
- F( V0 o0 N% j5 V+ C        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
  I: Z/ j: w+ h6 Z% q3 g