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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
0 p7 n. t5 M% a8 w" L# t2 |语句是这样的
is
+ U' [/ P$ D9 J5 X1 X        i:integer;
  t6 _1 w. E! F3 p        Res:string;
        obj:object;
do
        if existsObject("Status") then
/ }7 ^8 d  a3 g) ^( c1 t                Status.deleteObject;
        end;
; g3 R! }: S! @" n& ?3 b        for i:=1 to 10 loop
$ `  E3 B: c* u2 x                Res:=sprint("Store_",i);
5 N9 W: q( [6 h6 M                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
% ^" W( e+ h3 p) ]                end;
        next;
/ Y1 r* w( b* Y6 V1 ^        --shengcheng Status:zimoxingceng
0 m! x8 X8 b( h3 a- Q        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
; w7 V8 K% w5 ?/ e/ Z# `+ x        for i:=1 to WH_nums loop
$ ]  Z$ B1 C1 H4 K                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
4 u2 \# X% f. ^) b; b               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
& Z- Y/ `/ Y9 o* O0 l                Obj.Label:=sprint("huojiaceng:",i);
3 P% L( {! {, _- f- o- `                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
        next;
( h' R- j- C: E' g* H* c$ Y4 S       
        .Delivery.MUs.Forklift.speed:=2;
6 c2 U. R1 N, V* ~        WH_var.delete({1,Part_Nums+1}..{*,*});
4 k# [% _6 i+ S, ^        for i:=1 to Part_Nums loop
6 x8 W  m; w5 }$ v                WH_var[1,i]:=chr(64+i);
+ N% D- I4 c9 v7 d8 b" _% K8 O$ a+ ?        next;
5 f: ^- n" X. ^7 o7 s0 b, wend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
+ ]7 D* ~, N  A- Z) d% ^' `( t8 V
. l1 B' B8 H; T7 M/ N