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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
1 Q1 u/ A! I* B8 Q% F4 f0 sis
8 J- ~$ F# h( G% {$ Z# a        i:integer;
! p& y. C  e' Y9 t5 [. B8 q        Res:string;
, g$ y7 o- J# F7 r! }7 u        obj:object;
do
( A0 D* h: S/ ^1 Z: m( z        if existsObject("Status") then
8 ^$ |6 A+ r" z9 |; s                Status.deleteObject;
3 ~: r7 l- L) F( `1 f        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
9 A  Y6 F- _6 n, P                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
& S# H5 F3 M+ k7 |- k/ I, f                        Obj.deleteObject;
                end;
6 C( x1 J( g9 m; m6 _! e        next;
& A7 H+ I. w; a/ @% {+ e        --shengcheng Status:zimoxingceng
) D* D0 {5 E* x; e' A        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
/ U! U4 {7 F2 ]4 \       
) Y7 {. E- ~  J1 w& F" H; Q        for i:=1 to WH_nums loop
' L* r4 v4 e0 U: J6 W' `, W6 }                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
! p; D8 a* J5 Y3 ]' b" z5 B8 I" `                Obj.yDim:=WH_y;
& q, R* J& \# ]3 e- h                Res:=sprint("StoreData_",i);
               
( R, r4 B& C5 d; K8 ?  r                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
/ V' L7 i! C% U: H                Obj.maxxDim:=WH_x;
                Obj.maxyDim:=WH_y;
$ g) P8 A- C$ U3 F9 H" R/ L                Obj.ColumnWidth:=3;
        next;
+ z9 T; A4 R$ R       
5 s1 Z* C  N8 I        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
6 w: o4 I1 a3 h" y1 T3 W2 D7 v8 J        for i:=1 to Part_Nums loop
9 X0 B# N" y6 l( {                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了