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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
) M* o, z/ e7 f" N语句是这样的
is
        i:integer;
        Res:string;
  Q9 X: z0 H: F: T" j        obj:object;
3 E$ Y8 N% w  o& g& \9 ^do
" u/ p7 ]* h. e* Q% o/ T        if existsObject("Status") then
                Status.deleteObject;
9 b6 G4 S; [% Z1 v% t        end;
$ ]! [( c. G8 L1 B3 T        for i:=1 to 10 loop
9 Q; y8 b$ O2 B8 t7 F                Res:=sprint("Store_",i);
& l. j$ D4 j1 Z                if existsObject(Res) then
2 c! ]3 A) i' F" @! s" r( w: u8 P                        Obj:=str_to_obj(Res);
5 n. Q" m! S/ [  z                        Obj.deleteObject;
                end;
        next;
' F; f/ z! O: w        --shengcheng Status:zimoxingceng
5 a2 o9 Z. J; b- n1 \        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
' i4 @5 s* ]& c0 L, I       
  B% u: L5 q! j' V        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
- R6 O' \( s3 T/ q                Obj.Label:=sprint("huojiaceng:",i);
  U* |1 I; j6 q4 t2 K: |                Obj.xDim:=WH_x;
8 W3 q/ R7 w6 [) j# ^* y                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
- `* a1 o6 S4 z6 s' M( p2 P/ ]                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
/ R2 X( J& ~4 U, B! y                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
* ^* T9 W' A! s4 d% `0 l! h       
        .Delivery.MUs.Forklift.speed:=2;
  K, I& D& m2 k        WH_var.delete({1,Part_Nums+1}..{*,*});
) Y! e2 F3 M4 P  W% e/ X        for i:=1 to Part_Nums loop
+ _$ V; B: R9 `8 X! S% [  ?                WH_var[1,i]:=chr(64+i);
0 c3 @/ x3 o' T2 q# U" l: Z+ G        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了