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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
5 K% |0 D6 A/ ^语句是这样的
is
        i:integer;
        Res:string;
        obj:object;
do
+ o% P5 R, g1 _: B" q        if existsObject("Status") then
                Status.deleteObject;
* `1 G/ Z0 n* N$ ~" l        end;
3 M3 m. @% E+ }        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
) Z  {) r- B  r, F0 z! j1 H                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
: [5 j7 ]0 u  J. {5 X                        Obj.deleteObject;
                end;
        next;
0 g  }. W7 n0 y) f4 ]8 c  |        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
8 X, W. Y' B0 T# ^$ V5 X        for i:=1 to WH_nums loop
7 V. I& g4 S6 L                Res:=sprint("Store_",i);
, T- w9 ~4 H% D3 e# s                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
% c2 P/ R& ^; `5 O                Obj.Label:=sprint("huojiaceng:",i);
3 ]$ N6 C3 y5 O: }                Obj.xDim:=WH_x;
4 b! J3 i; v* E! _* V$ `                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
# e$ ]% t9 A! t- @, ^- j               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
! p  \# _" q  f0 m: o                Obj.Label:=sprint("huojiaceng:",i);
7 p& o7 a. R5 `( v3 v8 x+ b9 E                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
' k$ U7 r8 V; |- p                Obj.ColumnWidth:=3;
, T1 z3 H1 b& E) c6 w3 L        next;
6 c4 H6 Y' T3 b- X8 ]$ E       
        .Delivery.MUs.Forklift.speed:=2;
3 C6 [0 V' B' l$ b- |( X# V        WH_var.delete({1,Part_Nums+1}..{*,*});
8 m6 Y; l* |7 l        for i:=1 to Part_Nums loop
/ H$ d; t0 C/ P                WH_var[1,i]:=chr(64+i);
( W' T4 \/ y- O9 x- F( u* [) l' w        next;
) b8 {0 H+ R( l/ f* }end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
& U: B1 v* h* r- J+ G