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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
* h9 `) ]2 Y' U4 j. ydo
        if existsObject("Status") then
8 \8 H4 f% P6 _9 k' p1 d$ M                Status.deleteObject;
2 G6 E8 R- t  N+ j' G" @        end;
        for i:=1 to 10 loop
% I7 _' N4 p2 v$ g+ T' p/ ]( [# O3 E                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
& `# P6 J. ~% {5 }2 v                        Obj.deleteObject;
) H( ~' d! @. J) N+ j- _: \                end;
: F4 M' R! \8 j* y7 S        next;
, I5 B! W! H# l  B0 n        --shengcheng Status:zimoxingceng
! J& Y& F, @6 j5 o        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
9 ]# c5 [) m& j. ~       
" f( T- u9 j9 }) L6 |0 K& q        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 z1 \. k/ `! @; V+ r                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
1 ?4 q: y6 ^* z4 v                Res:=sprint("StoreData_",i);
9 R1 v$ {" D5 Q  L! [7 V               
; s( @$ `. p" A" J- ^  S1 d                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
' O7 j, h$ j* Q* [! k6 x6 e                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
. L* b; [7 u- t2 L0 p! a$ k                Obj.ColumnWidth:=3;
8 `. j+ k2 j: Z8 t: W$ ?        next;
" V, a% J! o4 y% x8 V       
. \/ U& V8 P, b' Z' r: A: L' I        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
. X, B* o/ y( q9 W2 f2 ~        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

9 k- M1 Z- b( P) |