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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
) ^  n9 O0 K/ U( c: Z        i:integer;
6 ~$ \/ C0 I7 J& y        Res:string;
        obj:object;
  @, ?* i# y! ~6 [% M2 R3 o4 n0 Qdo
9 e0 Z& N7 o/ v! W% G5 s        if existsObject("Status") then
& W" H% z7 g" r                Status.deleteObject;
        end;
        for i:=1 to 10 loop
. @" i! x8 ~! z  j3 T                Res:=sprint("Store_",i);
8 w6 ~( X2 a7 @% U$ J                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
9 L7 @# Y4 [4 u7 F) |. D        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
+ p* \# d+ d6 Y' |3 a/ X       
" y( y# [& [4 ~  A. r        for i:=1 to WH_nums loop
# j- r, F& A' T! ]5 O. M$ H2 \5 o                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
, Y! k) n' x" f3 K- V2 i( i                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
3 V9 r6 A; \3 ^! }- B9 I3 X               
8 c, F/ N. q! x8 y) |+ |9 X7 `                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
/ j! N* E/ ^3 D# Q. t                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
! z& k, o% v; g                Obj.ColumnWidth:=3;
0 t5 A$ W0 B# h& l7 q        next;
% B) h$ w7 V% r6 U9 }       
        .Delivery.MUs.Forklift.speed:=2;
) Y' s+ b; @* u% j0 `2 L6 t        WH_var.delete({1,Part_Nums+1}..{*,*});
* ?, l0 ]2 v+ t1 S- Z( L        for i:=1 to Part_Nums loop
0 U# t% Q% j. B/ z                WH_var[1,i]:=chr(64+i);
        next;
end;
  l. F9 v0 M) T& R- b& F7 R出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ C9 c3 M: K7 n7 N2 t: z: D  U) K