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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
        Res:string;
; {) f# x0 g/ N, t  C        obj:object;
1 [# x8 c9 J# Q# v) p6 u/ ~# {$ ]' qdo
; T! V; o  w, M        if existsObject("Status") then
0 M$ h- z9 J2 \) p1 C0 V8 d" ?6 S                Status.deleteObject;
% Z9 m7 t* X- h        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
" F! v& R! D. C! v1 f4 K; F                        Obj:=str_to_obj(Res);
* d( p9 r3 f9 H% A' |$ ]( Y" [  \) H                        Obj.deleteObject;
                end;
+ s4 e! W( k  [; `        next;
: X- h* d: ]/ J2 @( G7 l( T. v. i7 @        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
- w, X! Z7 T) r) v: O' X# @       
# P9 ^- ]4 M3 X9 C: Q        for i:=1 to WH_nums loop
: `; ^% G4 p( @8 j                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
2 A8 {7 l/ |1 [5 u+ a                Obj.xDim:=WH_x;
9 c# I* T  U$ R1 n4 Z! `                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
0 B- ?' p  P) |6 [                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
3 u' Z  t, r1 Y0 X* @5 Z                Obj.inheritFormat:=false;
. l5 q; @! s0 D; }1 x8 i  s                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
) @7 Q* d" b7 ]4 f' u& f8 p8 e$ F5 B                Obj.ColumnWidth:=3;
( _9 o( C9 g. q9 C/ j' b        next;
       
        .Delivery.MUs.Forklift.speed:=2;
( Q, R) d, C# X  j4 V& s, J0 ~        WH_var.delete({1,Part_Nums+1}..{*,*});
) L" d' n, ~- K1 `1 C        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
5 J& S1 F) p4 b* h- }出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
, E) W5 Y) n8 ~, P+ B; m5 s
! k+ B# i: g5 S8 j1 ?! q2 ~