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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
: d7 k: Y0 {& T$ m! N- Z8 e        i:integer;
        Res:string;
3 B1 W5 ]3 f& d9 j4 q* |) t* ^! U        obj:object;
/ D2 ^1 Y% F/ s! Hdo
! u' F7 g/ ^  j        if existsObject("Status") then
                Status.deleteObject;
        end;
( J/ o  {$ w2 E        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
) w0 I7 E, P+ u) G! f' N- E( s8 Z3 T                        Obj:=str_to_obj(Res);
! U; q" c! x& S" l7 r# ?                        Obj.deleteObject;
* e& E/ ^9 E6 O# B                end;
        next;
        --shengcheng Status:zimoxingceng
& P1 i& {0 V+ p4 j0 B+ h        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
, z8 S) Q" E( v3 B) j        Obj.Label:="warehouse status";
) f% R! @! B; @4 I2 }: P       
        for i:=1 to WH_nums loop
2 p4 y3 K% b) x8 Q                Res:=sprint("Store_",i);
5 `# U) I" ]8 B  o6 Y                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
; D2 U7 V9 R2 F  K6 B                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
$ W, N  s; y, A+ A  [                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
, K/ w  L; R- W& {/ Q3 F0 c                Obj.Label:=sprint("huojiaceng:",i);
! ?- c; @4 a- U- m8 R/ g) G2 X                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
3 U; B: Q7 H+ ]6 M- v  Q) ~) S% S                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
( `/ R# M! a- J        next;
: V7 ~* o; [+ ~       
: R4 `4 a: E# D) W; u' m) A- @" |        .Delivery.MUs.Forklift.speed:=2;
' w- B+ Y: Y( H' E6 V1 e  l        WH_var.delete({1,Part_Nums+1}..{*,*});
4 b: s. j! F8 E# Q3 f# ?        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
, C* Q. P% i1 m/ x        next;
' g4 i- L9 s8 k" F/ r% M  Nend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

- ]6 P5 y6 J+ D/ J9 {; m