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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
" ~$ M& J" x! F( K8 s) h; `语句是这样的
is
, ^7 h$ ~+ F" }' i1 B        i:integer;
( p' D. K& ^7 Q+ X        Res:string;
: X( X: e" m- F# q* p  n1 ]        obj:object;
do
1 A# x; h1 I" F6 }! y' ^  O        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
. ]1 I( _5 Q9 i3 B/ _                Res:=sprint("Store_",i);
                if existsObject(Res) then
! @4 K* h, C' x% N. @. ~* p8 D                        Obj:=str_to_obj(Res);
& p* g% h3 T+ R- y: f0 h- W4 v) P, G                        Obj.deleteObject;
! g( ?  l/ U! }. |) Z& \# E                end;
" {0 v+ U; B: T( m5 |        next;
" _: H2 ]: c! w0 c1 h" E) {4 f        --shengcheng Status:zimoxingceng
# {! H0 `: \' d" H( H7 A% w        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
; O5 G. [- a+ |% N       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
7 m4 N  F& u! t6 H! K                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
/ m  C5 d  a3 G& L                Obj.yDim:=WH_y;
; d$ }7 e. N$ T$ ]4 W                Res:=sprint("StoreData_",i);
% j( q' }4 ]  }$ F               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
- t( A8 A7 m% H% j2 ^/ f                Obj.inheritFormat:=false;
+ }* {1 {* F3 ^2 l: a6 L" E                Obj.maxxDim:=WH_x;
; Y' n0 u9 @- c% S  B' A                Obj.maxyDim:=WH_y;
0 o' A- G& L  H  i/ ?                Obj.ColumnWidth:=3;
* ~& R' D0 z* G4 `' ~, X  s        next;
       
! B+ I( V3 Y# Q" X4 C8 z- h        .Delivery.MUs.Forklift.speed:=2;
3 P8 u* E* L/ L% H        WH_var.delete({1,Part_Nums+1}..{*,*});
2 C1 E; I) O5 ^9 Z) `4 e        for i:=1 to Part_Nums loop
! A5 O! G) c% r                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了