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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
# n) H& x( I  ~, H2 u        i:integer;
        Res:string;
& _& H2 `& t' a: y        obj:object;
& }! S& |5 q7 n! wdo
        if existsObject("Status") then
8 m7 X; b7 `4 t" `" Q+ i                Status.deleteObject;
  [6 @+ M) X9 t5 e) o        end;
        for i:=1 to 10 loop
" ]7 d! B6 ?) |; U5 v                Res:=sprint("Store_",i);
                if existsObject(Res) then
  a( H: h& D: T  Q' ~; @                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
* ~; H9 W7 q3 r1 d# R" l7 Q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
0 {% i- w" B! X/ m" h: N8 a+ H                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
$ i- H; |$ ^3 ?                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
& D, N! _. \2 _, U' C                Res:=sprint("StoreData_",i);
               
! s7 u/ [; G- d, d6 k1 g                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
6 V, M2 N! j$ J" }" q                Obj.inheritFormat:=false;
0 q# P; z  {6 m9 n$ I) w) ]! H                Obj.maxxDim:=WH_x;
, _# i0 ^0 J' ]/ {0 @# M                Obj.maxyDim:=WH_y;
$ R8 ~% O' ~7 t0 C) R; P# [4 B, d7 |                Obj.ColumnWidth:=3;
5 L! l& j4 L1 p5 C, K. K        next;
* o. i" M( E* L9 u% E$ U       
        .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);
# k% b8 K2 f* Q# a% c/ N& p% X        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
* q$ I" L. s! T8 Z1 z5 I