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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
9 s/ Z- [. U9 F' ois
7 G. g+ c% S( X6 f' X/ E. B  O6 Z        i:integer;
9 K5 \- n1 {* D$ r. C, X" k  f  G        Res:string;
1 L# {3 C$ X; K' i        obj:object;
8 t: L0 M6 Y8 P! E/ s4 V( Z6 S+ xdo
        if existsObject("Status") then
1 D9 ^3 A  k( _% ~# @                Status.deleteObject;
        end;
# n; e) R+ s! ?2 R9 c3 E! r        for i:=1 to 10 loop
( x2 ~& Y9 j3 |- \                Res:=sprint("Store_",i);
                if existsObject(Res) then
5 F; b% O1 Q( A$ w6 H7 d3 s: Y* n                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
' n! [+ r9 Q, `( t. A. ]% ]0 I: @        next;
        --shengcheng Status:zimoxingceng
7 Z3 N- A2 Q5 B$ X! K. {4 h. c$ Y6 Q# W        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
. V/ `) o8 H, @& L9 \. t        Obj.Label:="warehouse status";
       
; e- _* G( c/ y- b" r# i        for i:=1 to WH_nums loop
; B& \* N% e: \1 [  X7 b0 C                Res:=sprint("Store_",i);
# R6 p0 G- n9 O: O0 y) s                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
% k0 `' F# v8 U: ]                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
& L) A; F0 j. T# E                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
) T' _: v: u1 @; I( ^               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
$ j( F2 e$ L- }8 u% A                Obj.Label:=sprint("huojiaceng:",i);
0 |1 y0 z: H, d" d6 `" _' l. b% ^                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
3 Y& H6 s# Q7 [5 ]6 N% {; J8 H$ R                Obj.ColumnWidth:=3;
9 H7 W6 g  T. v( p        next;
) W; p2 }% f  |" J# M       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
& z5 ^( e# K' m                WH_var[1,i]:=chr(64+i);
: m9 `2 ^( L/ d, C$ r  u; r        next;
$ |. H$ W( j) c- G0 Nend;
. ^  ]+ |( m; b4 a4 D2 U出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
" s, [, D5 A$ f* J