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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
2 ?& j: d8 a4 `) z. {6 p; M6 n2 Sis
        i:integer;
        Res:string;
        obj:object;
. b6 p! B6 z' X6 @6 f. [do
        if existsObject("Status") then
                Status.deleteObject;
8 o( T% I+ g- Z4 h' ^2 K        end;
2 _* |/ o% w( b: O  w3 a4 I/ N. D        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
& Z1 E1 L+ X/ H  A& C: ]                        Obj:=str_to_obj(Res);
4 c  {) F6 `) w! f                        Obj.deleteObject;
3 B5 H% w: d4 L: x. r                end;
        next;
3 }+ b; P$ Y: w  `/ b, L        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
9 ^. e0 H. F% r: S* N; M        Obj.Label:="warehouse status";
4 L: M( F. S5 C# q/ E       
! e  Q3 e+ X% F) P        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
4 R! H' }; F- A! d3 k! ]                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
" `2 s- a8 E4 n- \  Z5 P) c                Obj.Label:=sprint("huojiaceng:",i);
, r) p1 L8 P/ K9 D& [- o                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
9 H2 h) Q: \, U" ~9 t% h                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
+ h, b) ^$ _7 m9 O% W' R% J        next;
       
7 ~2 ^9 D7 t" O2 [  p        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
0 m+ e- s, ^  e& b        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
. E$ f/ B! d3 v- R0 A1 R5 Rend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
/ _  @% C5 i, {; f
8 N& n4 E: _9 C$ Y