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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
* a! d2 j9 g, o# _        i:integer;
' I2 [' U9 [" g2 |: O7 U        Res:string;
/ L9 z% U. [- V9 N5 Z! T4 A, `        obj:object;
7 u$ y# {% {$ n$ B( S' j) v' ?do
1 g6 n8 v* Y% H& O! ^  P) C        if existsObject("Status") then
0 s/ r$ j1 T# ^- Y5 Y                Status.deleteObject;
        end;
        for i:=1 to 10 loop
, x& z. N" `& }7 Q0 n                Res:=sprint("Store_",i);
' Q+ [: n" H7 N1 D2 i                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
8 `. e7 _; x5 E* K( z  L                end;
3 x0 K, j" \! n        next;
6 b- ^, k( w( A% }        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
# ], g& u8 i7 S7 Y# \       
! u: q$ t) }% X: j$ L: S) q# G        for i:=1 to WH_nums loop
: T; d% s7 d; j6 I' X                Res:=sprint("Store_",i);
                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
7 w7 }0 C/ j$ {9 e1 C$ k9 E                Obj.Label:=sprint("huojiaceng:",i);
6 _6 r) {8 i8 \5 ~8 T" f! j                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
4 i, I4 K! _9 X                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
# E; Y1 B$ q4 @, ?0 f                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
& f  c5 ]  O7 J$ O8 v! F- o                Obj.maxyDim:=WH_y;
- j0 M' \6 H1 A& @                Obj.ColumnWidth:=3;
  q' [2 s* t# k" j7 D) `. ?& j        next;
+ L2 y! O) }" W2 X% \       
* h- A! o5 Y: f3 s  i        .Delivery.MUs.Forklift.speed:=2;
9 Z  ]9 N3 e- H. n- }8 p/ V        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
1 S1 T6 y7 e! ]0 [/ ]" i                WH_var[1,i]:=chr(64+i);
        next;
end;
出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
9 C% R% |; G. b1 U9 s. @
4 y& E& J7 P" `. b% h% S