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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
. t' m; `2 ]! Z( \: _2 g语句是这样的
% k5 r% b9 V! o9 cis
        i:integer;
* ^4 v, g, U2 e+ n        Res:string;
        obj:object;
+ i/ n) v0 R# F3 ]( v% A% B/ Zdo
1 B3 H' j0 N" c        if existsObject("Status") then
                Status.deleteObject;
. Q% k, Q# M2 `, i1 y        end;
7 T/ k; u$ V! i, j        for i:=1 to 10 loop
, w& E: N3 h9 R$ {0 T                Res:=sprint("Store_",i);
9 J- p" c) C  _! F9 s& ~3 V9 s8 f                if existsObject(Res) then
% L4 e4 K* N# i/ i                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
8 J: w2 }* x1 D6 |2 z' L        next;
        --shengcheng Status:zimoxingceng
5 p0 q" E7 c7 b& \        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
2 Z6 {8 R6 y! u; r, x9 @        Obj.Label:="warehouse status";
       
+ R5 y9 X$ y$ F! M0 o3 Q4 M0 t        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
6 U/ a$ \. r, Q                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
5 |* S5 `! `/ |               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! K& S7 Z, m, s+ ^# l/ O                Obj.Label:=sprint("huojiaceng:",i);
) |& O2 x2 M- ^2 F                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
4 p- I2 @# f& v6 I% |: A        next;
       
! m# E0 w# B$ {3 T% k: h        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
3 Z7 y- D% [) w        for i:=1 to Part_Nums loop
1 D7 B* ~4 r# R7 k                WH_var[1,i]:=chr(64+i);
- y. V8 \2 k) n; [( C/ @3 v4 F( g        next;
end;
3 C3 T  F, L7 \0 y- b3 [出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
; v! N0 V' D% Y$ Z* _. a
! W7 [( S  g. t. H( l