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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
( E) ]7 @2 c- t  q3 a. b  s语句是这样的
is
        i:integer;
9 \) T5 K1 U5 J0 g* Z* B8 |        Res:string;
        obj:object;
do
3 I( G- x, S4 U9 t! A' w        if existsObject("Status") then
! [$ G. @7 N; ?- ~- q' s                Status.deleteObject;
# F. k9 z! q/ P        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
, t, j# I3 o- G% M/ L                        Obj.deleteObject;
                end;
        next;
# i  L# O8 R# g; r( }- [        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
" H& j/ Z% e3 W: f- b" X        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
- A. W) B: Q9 r1 Z6 p' D% T                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
/ }: E" J* r( w3 u' g. P7 q                Obj.yDim:=WH_y;
# m% h3 |1 h/ v                Res:=sprint("StoreData_",i);
               
" i* R2 j* g. R. o$ ^                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
3 H2 w) k9 _9 k* D7 a) a0 U                Obj.Label:=sprint("huojiaceng:",i);
! i; K1 I* x% y$ s& |# U                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
* A6 C  p3 x6 e, O                Obj.maxyDim:=WH_y;
" m9 S: H1 j4 O                Obj.ColumnWidth:=3;
        next;
       
, ?( s$ }- h' _( C/ @5 D        .Delivery.MUs.Forklift.speed:=2;
- q: l4 u- B! _3 ]* \        WH_var.delete({1,Part_Nums+1}..{*,*});
% p; m4 L/ E# ?. }, @        for i:=1 to Part_Nums loop
- V, e& X, `" c) P                WH_var[1,i]:=chr(64+i);
2 u9 Z9 U/ s2 o6 a  p, w        next;
end;
# c5 |7 _; t$ W  z; I4 ]" n' i出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
8 I; R( Z/ ~- V$ P* b1 ~
( Y& ]6 k2 E. ~6 k1 W