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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
4 `6 R4 t* `8 A; Z& n语句是这样的
is
% r8 ?9 f; }; w" j' H( _        i:integer;
! d3 {, D; L" ?7 a( e1 F7 k# T7 G        Res:string;
: K" }1 z( k3 p( X. D# [2 w; m        obj:object;
7 K# _; D; `: p( F. W  f0 Odo
# o7 ^* \' U% ~$ X. p        if existsObject("Status") then
                Status.deleteObject;
& m* D& M4 \9 P' D8 M9 C( S        end;
        for i:=1 to 10 loop
$ j5 u) E8 |" ^. B, L                Res:=sprint("Store_",i);
9 @; ^- m. z$ i                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
$ P3 z% o: q: g                        Obj.deleteObject;
                end;
) V2 X1 |9 \7 g        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
- M' `& [" c% D) @: Y' E# c        for i:=1 to WH_nums loop
2 `% @' m' u; n9 n  |2 z                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
, _! v6 f( E" q) z5 J0 w                Obj.Label:=sprint("huojiaceng:",i);
( M5 Y/ V/ Y! b                Obj.xDim:=WH_x;
7 O  Q3 h1 O' C) d2 h+ `( B" f                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
; I- p3 ^/ C" ]# \  R9 i. @9 X                Obj.Label:=sprint("huojiaceng:",i);
; R5 l6 n1 h! e$ F# s                Obj.inheritFormat:=false;
7 H0 y8 }7 a" M$ Q                Obj.maxxDim:=WH_x;
! S* b7 `) _; b9 ^: u% C                Obj.maxyDim:=WH_y;
) ]/ e- y" V3 x, H; _# z! Y) n                Obj.ColumnWidth:=3;
        next;
( i  l" z/ W: M( n4 X       
3 S6 [1 z- q! z0 Q2 d! i+ Y        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
$ m! m0 l/ r" R: _) E  g        for i:=1 to Part_Nums loop
# S  N, }" e' d; N                WH_var[1,i]:=chr(64+i);
* H( z7 \: \( z$ O        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
: O+ `( p5 E7 ~