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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
0 `1 V& y" I2 Y: j  B* @) T( b5 E; m语句是这样的
" S+ V/ c. U* P2 ]4 z, _  }& Jis
8 g9 @# m8 e; d0 o* y! I        i:integer;
        Res:string;
        obj:object;
do
4 _3 E/ V; j$ P0 c4 Y9 i6 P( N        if existsObject("Status") then
& l) @3 m. ?6 D& p  N                Status.deleteObject;
        end;
        for i:=1 to 10 loop
5 u" j4 ]: t% v' |& g                Res:=sprint("Store_",i);
                if existsObject(Res) then
" n* U3 A* M9 O; f+ D/ R                        Obj:=str_to_obj(Res);
0 v- Z7 _% S4 {) r( a- U                        Obj.deleteObject;
" j+ I* x* @7 J. g) B! r/ D5 J* J                end;
        next;
0 L8 K; H5 P, S8 f  g. z- g        --shengcheng Status:zimoxingceng
, H1 V: P. G; q- P" H1 Z. X        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
6 b2 F/ l2 z) ~) G        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
& E  m7 K" t3 A; U: T. r% d                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
6 c- _4 t' d8 g( |                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
' T/ M! ?9 i# n/ U! _                Obj.yDim:=WH_y;
9 @0 O7 q1 y- l* M: o# \* r$ P9 C$ O4 O                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 Z0 N4 E% q% }                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
/ W- _6 j9 w" E5 j* M                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
2 D3 |- R+ F% X& H        .Delivery.MUs.Forklift.speed:=2;
/ ~" {# z. L/ P7 m( X        WH_var.delete({1,Part_Nums+1}..{*,*});
3 N+ q9 z# V0 o6 D        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
4 x8 e( K$ l) z2 e* d  v        next;
end;
+ w9 Z6 N1 V' G% F7 y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了