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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
2 M: V! c4 [9 P4 O5 N语句是这样的
is
, M$ o% S7 f3 e: Q$ t4 h1 u        i:integer;
( d6 ~0 x8 d6 z; b        Res:string;
/ _2 k# O3 ?3 y7 W' j$ G        obj:object;
do
$ F4 I# O, B% Q! h9 a        if existsObject("Status") then
9 [% x# a+ [/ W" }, Y9 q  s                Status.deleteObject;
9 S+ \. v/ j6 m" D7 u; h        end;
0 P! s/ z) Q" M. q- T& z. t        for i:=1 to 10 loop
+ S3 F$ L, _* g                Res:=sprint("Store_",i);
                if existsObject(Res) then
0 Y' q2 p& J: M/ [# Y1 P  U- Z& P                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
5 ^( K% s: w; @" G4 H. o        --shengcheng Status:zimoxingceng
% T; Q- w; P* ]& c1 @        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
: S9 }7 I' h! T8 i! c) Z3 S/ L        Obj.Label:="warehouse status";
" B) v, ^8 q5 p       
) L6 f& D/ t4 W5 _' c4 \1 p4 r        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
  M# r7 r& {9 v. m1 K                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
6 p8 K% R+ e; d( U                Obj.Label:=sprint("huojiaceng:",i);
* x, g% g$ `. O$ p. L                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
7 n3 v) Q' S1 M& B                Res:=sprint("StoreData_",i);
" U0 m/ m1 U3 |  M- R( J* ?! |  q* W               
* y6 Q4 X& G+ h" H; }' u! w                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
3 v- W/ L+ Q6 K+ r$ M$ U- y0 O6 g                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
9 G- m* X' w* s* |/ g8 u) r' l                Obj.ColumnWidth:=3;
        next;
( T1 X. M$ G" f9 w2 W2 k% u       
3 b+ {: O# t. ]3 Y6 v$ J        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
7 o$ {, ?8 T) U7 F        for i:=1 to Part_Nums loop
" B) [2 n: ]1 P  v% y: X: n$ ]                WH_var[1,i]:=chr(64+i);
        next;
2 F' M1 v- `) l6 H4 xend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
3 f. P, t5 V* u