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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
, [5 t  y. h4 R; t7 G* ^  p0 V语句是这样的
) U' r, f5 l/ }$ \4 b% m. q1 |8 sis
. M/ H: J5 h" a9 l9 @, m4 Q        i:integer;
        Res:string;
! Z' r- q2 `, B) ~! @! B: S# x        obj:object;
! q$ A9 g2 W4 F1 u8 odo
+ g. R  v7 @9 {" F        if existsObject("Status") then
                Status.deleteObject;
# S7 {7 P) v% x' ^% R. U" p+ |        end;
        for i:=1 to 10 loop
% P( p5 t% K  m3 |; j                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
! [  F/ D* G: ^1 L6 x+ w# J2 R                        Obj.deleteObject;
. \: D) ^3 E  q8 c1 G4 f9 Y                end;
        next;
, b' a) [' F# C# ^+ Z0 s        --shengcheng Status:zimoxingceng
  s6 g3 h1 c" O; d        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
. d# I. x/ m, ?$ {5 [0 u; T3 b- t; U        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
, [& M8 S) b' r8 {                Res:=sprint("Store_",i);
- O: [% y  ?; Z8 ^) x                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
! x- K- L/ P; G- K                Obj.Label:=sprint("huojiaceng:",i);
4 q- q! T  t. \5 J; W; ~- d                Obj.xDim:=WH_x;
. q1 X7 K6 i2 [4 C# |1 b3 m# D: R                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
6 Y2 o3 ?2 b5 a8 k0 a3 S7 o  b  L! v                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
/ `2 O- C/ M  _% ?5 y" w# @                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
$ J" c8 D. z. T        next;
" |: L  \0 Z! U' j# l) `       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
$ I4 b: c* W# _  a$ Y        for i:=1 to Part_Nums loop
7 R& B- j7 ~0 [& B! s  x( w% d                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
/ w1 T  d6 M3 F/ O9 L* p+ \, {
6 K' F) z  l4 F* M' `% D4 }