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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
- X! R2 h. S; I/ P+ C- i; w  Vis
! J% p  B) p# s$ U4 w: g# I        i:integer;
        Res:string;
1 w: D9 T( L* }        obj:object;
. h; K. \* o# o2 ]* `3 @5 m. Ndo
$ [: t. k/ b- a, t. C: E9 T        if existsObject("Status") then
                Status.deleteObject;
) b: v8 }0 y! b' `        end;
        for i:=1 to 10 loop
1 [  p0 Y+ L2 R3 c3 R                Res:=sprint("Store_",i);
. X% l. m( [4 H/ E( G0 `  {+ Z% n                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
- r5 C* U! W8 ?# h9 R3 M                        Obj.deleteObject;
9 _* H  [4 H7 y, f3 g! D                end;
        next;
        --shengcheng Status:zimoxingceng
( @: K1 ?$ ?1 W+ F8 F2 G( w        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
1 J) I( t7 T% p* X  c1 f8 {        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
1 _/ U- P, E% `8 P5 F/ a% y                Obj.Label:=sprint("huojiaceng:",i);
. U- ?" J5 i% v! M                Obj.xDim:=WH_x;
; v1 t- y2 e* e6 ^* _                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
, s/ h& H+ z) O               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
, H" C  Y6 j, @7 {3 Z0 }, }                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
+ d$ W/ N( j/ x                Obj.maxyDim:=WH_y;
6 ~, I4 k2 f1 X: Z, |! _                Obj.ColumnWidth:=3;
& [. s4 \9 i5 y  r* @% L) c" l        next;
% C, L$ q. W& k1 m0 ~: x       
        .Delivery.MUs.Forklift.speed:=2;
- O& ?- I6 O/ {6 `) W" \        WH_var.delete({1,Part_Nums+1}..{*,*});
2 w. n9 D, P' ?0 N' B        for i:=1 to Part_Nums loop
2 R" O0 m6 O/ K, ?6 G+ x  G3 ~                WH_var[1,i]:=chr(64+i);
        next;
end;
; J& Z! P" n; Y出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

# f  Z3 x* ~3 m$ \