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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
3 d6 B* N2 H1 l语句是这样的
# @, o, B  U/ ^( `# A! P9 Q: ais
        i:integer;
+ f1 s2 c9 u+ O9 I% P$ C        Res:string;
4 i& C# V: y2 U( b7 {+ b6 U% N! V        obj:object;
! C/ ^6 G3 c0 u% o8 v9 D: N2 ~do
7 O; u7 {4 ]: U, U; q' @4 {* V1 K        if existsObject("Status") then
) r. E* x# d/ R: u* p                Status.deleteObject;
        end;
$ s1 @& S" g9 P: K+ A& h' j        for i:=1 to 10 loop
" a6 U: c$ s" w& {' ^! O                Res:=sprint("Store_",i);
; Q; N. ^& `, X. ~3 |4 i                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
) U5 Z0 A( v1 E! @1 k: X: _* n. H                        Obj.deleteObject;
; a/ X' i8 u; _: j- U# l# x( S                end;
        next;
        --shengcheng Status:zimoxingceng
& Z, \; b2 J# z- V        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
; ]5 [9 o6 f" b! p        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
! x* S6 l% m! y- J                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
" N) L0 O" z( z8 c. w$ R; q2 P# [( G                Obj.Label:=sprint("huojiaceng:",i);
% l. R* o% d' d; ?                Obj.xDim:=WH_x;
# b* ?6 t4 F( F                Obj.yDim:=WH_y;
5 N9 B$ B) S2 p0 f                Res:=sprint("StoreData_",i);
! o; s* e4 n- N               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
# H+ ?- g0 w' `+ K4 A3 i( \                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
       
( Z$ K' K2 o' O2 G. |6 V( w  ~4 r        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
, d6 d/ ?4 g1 I6 b3 X                WH_var[1,i]:=chr(64+i);
        next;
end;
: L7 X. U! P  l1 s3 V/ B4 f2 c/ A7 Y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了