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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
: M) O8 p$ x( b* G        i:integer;
        Res:string;
        obj:object;
do
        if existsObject("Status") then
                Status.deleteObject;
- H0 j9 N" [5 ^' a' q        end;
        for i:=1 to 10 loop
6 L, A$ i- s$ ~                Res:=sprint("Store_",i);
' y0 c0 W3 ^4 h) }  l                if existsObject(Res) then
* C5 o8 [- @3 q                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
- M1 _( w/ g6 a1 h2 G  s/ U0 @5 h  [) ]        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 p5 `/ n& h$ c7 N  ]        Obj.Label:="warehouse status";
       
7 t" m4 y' J0 y% b" C) h        for i:=1 to WH_nums loop
) K1 M, x2 g$ y6 U/ K& l' x" l$ d5 J                Res:=sprint("Store_",i);
1 a+ Q3 j5 ?! g; h9 e% G" C                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
' ^: v2 {  k* a& K                Obj.Label:=sprint("huojiaceng:",i);
0 t4 u) Y3 u: q8 q8 j                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
! I" e2 i- s4 \# y, Y' L               
# J% E$ i8 }+ |9 p9 I. \                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
( o) J. m+ ^- R, ]2 C$ l" B9 k8 R                Obj.Label:=sprint("huojiaceng:",i);
8 g) e8 n7 s4 h1 m  ~  M                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
' d4 y/ t' N8 Z% K, i9 l                Obj.maxyDim:=WH_y;
; a: t* G$ l1 S8 `/ E& ~                Obj.ColumnWidth:=3;
$ h  U5 D" s1 y  ~8 l        next;
5 S+ V0 O  L4 _       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
3 c1 C% w; t( h3 o4 P        for i:=1 to Part_Nums loop
6 T# F1 n- A0 f2 ^& q# n- M# J: [3 E                WH_var[1,i]:=chr(64+i);
' @$ ]) ]2 X" L2 q, b( K        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
2 g2 c+ I5 ]7 J) e5 G- v0 S