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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
- R1 }- k+ @  Q1 ~8 Q4 ~, s        i:integer;
& {- I6 S! j# o, l- Z3 G9 J/ e        Res:string;
/ ?: g: w! X: s5 t6 N: m+ ]        obj:object;
5 D2 e4 x4 M3 D9 p. Cdo
        if existsObject("Status") then
                Status.deleteObject;
/ G6 g( ~% x* U& d7 h$ Y        end;
- ~7 @! t2 o; H# n& j6 B% u        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
$ f9 o2 @! V/ }) i9 M1 q9 u                        Obj:=str_to_obj(Res);
* F1 m; _) `  b4 [# I3 T/ `                        Obj.deleteObject;
: H4 f9 @3 l3 t' I- e                end;
1 J5 R  {% `2 M. F        next;
0 t3 E- M# R2 q$ q0 [9 `, d        --shengcheng Status:zimoxingceng
- s6 I5 @4 d; ^3 E  q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 f" }" d/ c0 x6 O        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
( w: C6 G0 D. l$ J                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
0 z' K. V9 b% ~0 S9 `% @4 v                Obj.xDim:=WH_x;
, H! K) S/ ]4 ~                Obj.yDim:=WH_y;
) o1 v$ w9 f, p1 t. D                Res:=sprint("StoreData_",i);
# {$ E& v/ L" |+ e0 L! I5 X               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& J& w" ]* t/ ~5 |! I  S, B+ u                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
* Z0 z1 e% }2 k" N                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
1 ~$ |& I7 i7 G" J        next;
; l, d5 i, z0 r; c' V' B       
        .Delivery.MUs.Forklift.speed:=2;
" ~3 {, ^3 l* Y' f3 w7 j- x! n* W        WH_var.delete({1,Part_Nums+1}..{*,*});
  ~0 G7 R# `- I3 U( o" Q+ V        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
: M$ E: h" v* M! e5 F% `( R        next;
end;
. r+ j' f: U9 l+ s7 {: F8 D出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
6 h& u8 E  d7 b: q8 ~3 `( b+ t