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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
+ y3 _$ K6 S6 F+ j( D' A语句是这样的
+ v  g+ n/ I# _8 b8 D" `+ m. ois
        i:integer;
7 i3 z+ i* |+ V5 y, h        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
0 l3 h# @' o% j3 x                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
* M1 B0 O7 e+ y" V9 v                        Obj.deleteObject;
                end;
        next;
3 [+ b. V7 a% k' I; I2 ]        --shengcheng Status:zimoxingceng
5 m8 w: E/ D- I+ K/ C- M        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
) }( N* G8 N9 M) S$ u, C) R! s        Obj.Label:="warehouse status";
       
; r  L! X" E3 R+ y# X! L) E        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;
% H$ K1 G3 ~0 c                Obj.yDim:=WH_y;
" n3 Q9 G4 j# r! J. v. k4 L                Res:=sprint("StoreData_",i);
/ f, m, u0 J6 V9 O7 G' H               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
8 R: h' `$ P, o$ z$ l3 f+ {3 V                Obj.Label:=sprint("huojiaceng:",i);
0 G( ?0 D3 k$ Y: t! D2 Z3 C5 y0 u                Obj.inheritFormat:=false;
2 J5 B4 I( T( h: x                Obj.maxxDim:=WH_x;
3 |" O- ?. U; O7 ]- {; ]2 X                Obj.maxyDim:=WH_y;
+ t5 S; u/ E+ M* K                Obj.ColumnWidth:=3;
- C( w0 @5 y" ?* ]- b        next;
. r- z5 S: a" L2 u       
3 b- o  Y3 i$ T3 s' {        .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);
/ v4 ~9 U4 @2 m$ c! K; ~        next;
end;
2 R4 @% M' }4 q. L$ b出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ r3 X  K" ]5 [# Q! W, x+ H: B+ b