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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
* [7 V+ e7 X; S' R6 i        obj:object;
" t( `/ \7 ^) Q# q- S6 ddo
4 M3 [9 y7 P# P4 w7 O( g        if existsObject("Status") then
                Status.deleteObject;
        end;
1 c( {8 j5 F3 K% F7 d; x9 @        for i:=1 to 10 loop
: \9 {6 j$ ~; T5 X) o" ]! i1 {                Res:=sprint("Store_",i);
) n: P# h' g3 b# z                if existsObject(Res) then
: j) {8 x7 H9 P- T0 p4 A                        Obj:=str_to_obj(Res);
+ Q- C/ W; @$ L; f                        Obj.deleteObject;
                end;
* e' U" p/ M# g. ~( U  k9 Z        next;
, r7 J. D! h  A+ ^) V: A4 n        --shengcheng Status:zimoxingceng
. `5 k) F5 t5 h4 d! j2 E2 p' h. I        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
) |5 |3 M4 ?' l5 `$ O        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' `: U+ i$ `- l; w+ l                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
' g4 m( E1 t2 k1 P               
" T, F2 @( E' T+ K! D3 a: T                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
0 D; W3 u/ ~  V( x0 P+ U                Obj.maxxDim:=WH_x;
0 P# S% B* V2 I* d( S                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
: F! P  ?, G1 K1 A1 V) I* _8 d        .Delivery.MUs.Forklift.speed:=2;
& o6 @% l, p6 i4 J" w. V$ i2 K        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
& \8 {+ @- Q/ X6 |' ^$ E9 v                WH_var[1,i]:=chr(64+i);
* B/ I: A* B( s        next;
end;
& e5 i: z4 O0 u- ~7 f# `1 g& P出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
4 ^8 r7 @: ]7 a
$ b$ i& M' _! W, i& e; Q  y