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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
% g  i2 j: y: x/ w! i9 q! G& ^is
9 l- M* M) L3 o7 b* R4 f0 _. ^  a# h0 d        i:integer;
        Res:string;
        obj:object;
do
1 k/ {! x$ x( w" q* U8 ~* z9 o        if existsObject("Status") then
5 u+ l% G8 A! n. v, [  x                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
' z2 _1 X7 K) y                        Obj:=str_to_obj(Res);
  o2 }+ n  L3 d6 ~                        Obj.deleteObject;
                end;
% g0 d- h- e) K6 S        next;
, F5 `% X! K8 i  O        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
  K& J% w$ _% L% U( {2 a        Obj.Label:="warehouse status";
- D5 m1 v# i0 E! X+ d( I       
) \. C) R+ ^$ y        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
. f9 i- q) v/ j                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
  \- Q  |! F# U8 R' C5 J% M$ T" ?                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
7 n3 ^" @, Q8 v% W) E                Obj.yDim:=WH_y;
; i" Q- L& t9 t, I+ {' ^5 S                Res:=sprint("StoreData_",i);
4 z, \; q% N) N$ @& z               
4 O, z8 S' H1 X( y9 e4 H! M                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
1 ~& G1 Z$ U. E1 J( L' U8 J7 d                Obj.Label:=sprint("huojiaceng:",i);
7 x6 s, N+ L- I1 d                Obj.inheritFormat:=false;
# }2 r) i& m  {, b/ I/ J+ b/ w2 H                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
) {2 c- [) `. X8 `/ j! _0 G1 h% t8 ~                Obj.ColumnWidth:=3;
1 R  C8 N4 F" Z" ^, i+ `        next;
! r+ k3 I4 e$ Q       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
# v: v) O9 t% t; q        for i:=1 to Part_Nums loop
' M+ b: R5 [4 D+ h* w8 }7 |. g                WH_var[1,i]:=chr(64+i);
, ^# X4 ?6 Y5 p        next;
end;
% ?- I/ L4 i8 \5 J* y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了