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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
% G+ i6 t. v7 ^$ fis
7 P# s6 i8 o* Y/ M0 S$ A        i:integer;
. n2 Y- K' z! C* {        Res:string;
+ K1 ~8 I+ @0 [, j( P        obj:object;
do
* x+ H7 Z# s( u: u        if existsObject("Status") then
" w: S7 V5 {( C* V3 b8 u                Status.deleteObject;
6 p6 h/ H& z2 \        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
2 d1 ?9 m: j: l* g1 S# `                        Obj:=str_to_obj(Res);
; S7 K% _! D& H: s                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 G) o6 p! @- P) V. o        Obj.Label:="warehouse status";
5 X3 o1 W7 w: \. ^       
! f, H8 _+ o: g) C% I        for i:=1 to WH_nums loop
  G( Z/ U7 X- J/ H* w0 h                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
. C+ M" Q7 W; R" v7 f0 t                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
  q3 Q9 X9 c6 K1 O$ w0 G+ O  l5 }- ?                Res:=sprint("StoreData_",i);
" @3 x4 G- L3 _               
7 P- ~5 a5 _) F' ]8 ^) D                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! Z8 J) q$ V1 c& t% @  k+ x. M                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
$ M0 B/ w0 S' M% F. Q, y                Obj.ColumnWidth:=3;
8 s6 T, }! s* D& z  m9 W        next;
: E; j5 l5 P0 R: O6 p& a       
        .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);
        next;
end;
- a! E# Z4 @( F3 l, M出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
0 w. y& w, j, X3 y5 f! j' i* y