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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
4 y7 c" a. w3 q+ w/ z1 B        Res:string;
        obj:object;
do
/ F+ g3 k; F2 d6 m+ t8 T$ M        if existsObject("Status") then
                Status.deleteObject;
        end;
8 U* L! |2 k# v, j: R        for i:=1 to 10 loop
* u2 W1 Q: B* ~                Res:=sprint("Store_",i);
                if existsObject(Res) then
2 B$ W. c5 R9 C" t" O                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
- Y: N$ W1 Y, B0 M. N; C" q        next;
" ]5 W+ z9 ?; M; f" B        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
8 L  p1 K9 R8 _: \+ t' x3 L        Obj.Label:="warehouse status";
       
, T1 S5 o( K. S7 _' U1 P* U, l        for i:=1 to WH_nums loop
4 I& n2 x) L$ ^! j! ]                Res:=sprint("Store_",i);
+ x/ H6 s3 `! S$ Y0 z; [9 {9 j: b! ?                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
1 Z$ m6 y/ T8 O8 c                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
: x5 d6 V# z" F( [4 K5 A: N                Res:=sprint("StoreData_",i);
5 T0 W) u/ Y. C) ]               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# i) b* r+ ~, n7 G% N                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
. B  A# q9 N/ ^1 b% q                Obj.ColumnWidth:=3;
        next;
       
# B& [' k# d5 }& P        .Delivery.MUs.Forklift.speed:=2;
8 g7 ~" u: \& M( B        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
  Y4 C/ d) {& ^3 V                WH_var[1,i]:=chr(64+i);
  Y3 q8 }9 p: z8 H( m- q( E        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了