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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
0 m0 T/ _- K% r9 P. V        Res:string;
) i8 A; ~6 @7 r( m; {        obj:object;
1 Z6 ]' I0 `; M9 a+ |do
        if existsObject("Status") then
# @* I! O/ A8 ^# g7 @- a                Status.deleteObject;
' {) T- q9 j8 L' ?' m5 ^5 B! z        end;
9 v7 v& T) c- s4 o( [0 S, W& J        for i:=1 to 10 loop
: K" \, j6 J. t0 `6 J                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
' L% u5 I0 \7 S  }        next;
        --shengcheng Status:zimoxingceng
! b/ Q3 r" {( K        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
- L9 G6 ^. |5 R$ u( s( J        Obj.Label:="warehouse status";
2 M1 c7 g' }* [+ W7 d, Y       
: D2 F$ f+ c/ K+ {' S8 H3 e! r" U        for i:=1 to WH_nums loop
7 E: I; Q! _& \8 ?0 b# F* H' }                Res:=sprint("Store_",i);
7 [& z" o9 Q5 i( L$ C                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
: P  D" B* z  ^5 N  Q1 R7 Q) h                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
5 A. w9 u0 ]+ N' w% \                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
8 F7 a6 W3 ?( Z; J3 {9 Y! ~- Y, d                Obj.inheritFormat:=false;
2 a& X& ]0 l6 a8 l! m" U/ H                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
' k# v; N/ {! I. O        .Delivery.MUs.Forklift.speed:=2;
- {; r  u& v& [8 {        WH_var.delete({1,Part_Nums+1}..{*,*});
  @: u% z! m6 l6 w4 ]' y6 N/ ^. f" @* {        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
% F! M9 {& r* o' z& m2 v( j        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了