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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
: i5 C; c! g$ _! gis
        i:integer;
! K5 X- P0 }: a8 [9 P* Z        Res:string;
) `+ P, L8 d& P* H        obj:object;
do
, U7 J* q5 S$ h        if existsObject("Status") then
, ?, r# s6 f8 A1 n; i3 Q* Y                Status.deleteObject;
        end;
        for i:=1 to 10 loop
) H4 A1 x3 N1 m                Res:=sprint("Store_",i);
" B% s9 }" T' ~0 f, f& Q                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
  {; U" L" g1 ^% p) g( o' F                        Obj.deleteObject;
' k; t( R2 t2 h+ J                end;
" M4 ?$ ~" r  n  r        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
$ k  u, f+ m+ y  H. e        for i:=1 to WH_nums loop
* S& l1 r4 G- f( y                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
0 Y% M4 L- o0 Z" ?# w& {* I                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
( |4 B& M" n: E& G7 I4 s- r                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
/ E% i  r. m9 d7 G. _                Obj.inheritFormat:=false;
* N) e' ], ?4 A' ?6 o  H) o                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
4 t" d+ _, v: }1 q                Obj.ColumnWidth:=3;
        next;
       
        .Delivery.MUs.Forklift.speed:=2;
3 |, v& f2 g" y( G, ]0 ]8 r        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
+ \+ Y8 {" g; wend;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
% h" N+ Y6 P# |, b( n
' H( Q/ ^- p  ~9 w6 h, Q