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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
# E7 a5 ^1 E! `        i:integer;
6 c& T) j, P' s7 E4 J) @  i        Res:string;
! ^- o- l; P4 ]% c0 e* c1 e        obj:object;
do
+ b& [# T8 x- r- R0 S3 t) k        if existsObject("Status") then
* a  a  M/ [$ ^/ P8 q: `8 \, {3 k                Status.deleteObject;
        end;
        for i:=1 to 10 loop
; {5 D( Q  n1 i0 {# }9 N                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
9 W' G/ G& n+ H                end;
& t6 n$ J# w3 g" f. W        next;
0 l& N# X# k8 V: J" Q        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 T+ G6 A% N- A- X/ J' M        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
* }- q$ W) F3 M4 P# T                Res:=sprint("Store_",i);
; p# v, p& I- [0 a, q4 a9 `                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
& g. f2 E( X% t( M& T                Obj.xDim:=WH_x;
2 C6 B+ N' X8 W6 @5 L" B                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
2 ^7 _( N9 L2 ~  w8 G( b                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
6 G  I! @2 l: Q5 t                Obj.maxyDim:=WH_y;
9 P+ ]2 V+ R$ w$ `                Obj.ColumnWidth:=3;
        next;
       
7 I# Z. B  ?$ k/ n. F# L# g        .Delivery.MUs.Forklift.speed:=2;
8 ]0 g$ f. A, U        WH_var.delete({1,Part_Nums+1}..{*,*});
! _7 l* B5 l* ?( X+ B3 p        for i:=1 to Part_Nums loop
/ v3 k" M3 J/ e6 L- d' F8 ?2 u                WH_var[1,i]:=chr(64+i);
        next;
end;
) S- N% _! z) |! R1 s( A出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
: s3 ~5 _7 [( v9 a- G