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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
0 R2 }  w; m: ^" J5 X- Pis
* E/ ^" j8 a* ?- x        i:integer;
9 |4 E, i: |( k- K4 `5 \6 c        Res:string;
4 V, h2 A- v  s2 f  d# k5 k        obj:object;
2 B/ B4 L! F* T- N7 O  wdo
, Q% S% u; X( X+ m0 ^        if existsObject("Status") then
                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
1 ?# K$ M, W1 Z$ }. W0 F                        Obj:=str_to_obj(Res);
8 h! A. g; L4 p' a( x" H  J7 z                        Obj.deleteObject;
/ [  k7 b% r# U9 P                end;
3 L: k) Y" m7 w# Z        next;
        --shengcheng Status:zimoxingceng
" F: }! C! M7 n$ J* A/ ]        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
# s3 v! j) g  }& Z6 S       
$ V# U2 O- ]- l$ j) O* \        for i:=1 to WH_nums loop
/ V' S) C. w4 i                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
; `+ M! n# \+ M1 m                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
9 [1 P! n* Y# l8 l' Y                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
/ @& ^: V; H$ T3 f* @                Obj.Label:=sprint("huojiaceng:",i);
. a; B: `) S6 z6 J$ v                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
' [2 C8 t) m; i" o        next;
/ j$ v& e6 z; F# m. U! r       
3 Y( L: m7 O7 j- O) X' c. ~* d        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
end;
& ^3 I% U1 N( e2 i出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

: e/ j) M( h, d5 H