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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
8 _4 y- p8 l# z. [1 k. a( Mis
+ b. U, [* N1 B( I2 B$ k* O% d6 v        i:integer;
' \  J& |( N* W) F, r( t& `        Res:string;
        obj:object;
  v3 U& l/ d  X$ H0 Z4 ^8 N) j- Odo
        if existsObject("Status") then
                Status.deleteObject;
        end;
" P8 c" R* t0 |, b        for i:=1 to 10 loop
- X; W1 _" d. Q% [$ V                Res:=sprint("Store_",i);
% s' C8 a! k; X$ t: ~$ M$ X$ ~                if existsObject(Res) then
% S# H- J4 l! }+ j; H. F, J                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
5 I+ d1 |- y2 k) ~        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
% ?$ P6 r2 Q! d; c, M5 ]        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
/ u8 R% p  v! u% s                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 n; _' |# h2 r+ i4 v6 C                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
9 U) b+ `) `) x/ r' b               
: ?, L) Q9 t4 V( S; S                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
+ w' P& F/ U6 ~; I                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
' E: t6 B/ ~% y       
" t) h# B3 \$ V* M        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
% g& v0 A: h. [& ~3 e                WH_var[1,i]:=chr(64+i);
        next;
end;
2 |. V3 E# L. S! [. N9 ?! I出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了