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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
2 h1 C' u3 f' y+ His
        i:integer;
        Res:string;
  H( P# @* b- n+ G% u  z        obj:object;
, {: w/ l  D2 x' ddo
' `7 @/ u8 [' k" a0 R3 }: Q. P        if existsObject("Status") then
                Status.deleteObject;
        end;
( K, p( ]" }) Q( Q$ u  ]* K) @5 X        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
$ P8 I/ D7 i  ?  b# c5 P                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
" y9 {8 z3 v" j/ m& b                end;
        next;
. _( D) Y& V/ v0 v- h2 @0 B        --shengcheng Status:zimoxingceng
) t% e2 q6 @8 ]3 V3 o. ?+ a        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
5 C6 y: {  i& E% n        Obj.Label:="warehouse status";
: W+ Z. t" c- r0 V       
5 D) I$ n8 _; O; A# F        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
6 n& j; C% Z! Y. A# V                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
8 ?2 e) I; F9 _# T                Obj.xDim:=WH_x;
! u8 u5 [* s/ `; @& u% o# H                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
2 R4 B& @' a% c/ L" x: k+ O0 l+ R                Obj.Label:=sprint("huojiaceng:",i);
/ a4 u+ G# P' Z3 A- V5 r                Obj.inheritFormat:=false;
% {! W6 U& B! T* A                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
. V: Y$ Z$ C9 x; b; q% g                Obj.ColumnWidth:=3;
        next;
, j" N' S9 T. F# q" O' i( P% W8 @       
+ C, k! S2 @" I' Q8 G        .Delivery.MUs.Forklift.speed:=2;
. g0 P  n; h8 r/ o! q/ Q        WH_var.delete({1,Part_Nums+1}..{*,*});
7 G0 @1 ?# o8 h/ t/ T/ U8 P' w4 I3 c        for i:=1 to Part_Nums loop
/ V; l1 s. g5 `1 \1 e& U0 A& b                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
- H9 |$ Z6 A8 I. C" t1 r- ^7 Y