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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
6 F) N1 v* u" l, U# w/ q1 O3 O3 }" Edo
% J4 ^+ ^# z2 @7 M9 T        if existsObject("Status") then
                Status.deleteObject;
) r: S, E3 V6 r% W) Y1 o- B        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
5 t7 D0 t& ~: W- Z                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
1 y& }2 ]2 z7 J; T6 f* V! p2 q        next;
, |# ^* ?+ ]% `% V* G5 u        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
  ?; F: Y9 O9 x       
) B/ h. G0 I/ O        for i:=1 to WH_nums loop
" B3 G& Z; i2 f. U. c; V0 K                Res:=sprint("Store_",i);
0 n7 n: A' D5 S4 ^5 d% Q) v                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
1 ]. \( Q! B1 X$ ]9 H/ W% @                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
. b# S$ x0 w, h: H1 K* o! p                Res:=sprint("StoreData_",i);
               
* a' N1 w) Z. i/ }2 u& H8 [                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
% B- Y. S" L2 _' h) R  h                Obj.Label:=sprint("huojiaceng:",i);
& L7 D$ x1 x/ F# b; }* b0 {1 ?  j                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
. X/ d* i, M# X. n                Obj.maxyDim:=WH_y;
. t- k$ |- s; t% U: N' j0 P                Obj.ColumnWidth:=3;
7 F3 r: m$ w4 w* a- I) w        next;
0 O/ w5 r8 e0 p! G# M5 J       
; _  y8 F- W2 ~, W) G) b7 ]        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
2 o" f: Z4 @' @! send;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了