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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
# T1 G' i& J( {语句是这样的
2 _7 @# K, c( H- N1 }is
7 f. r5 d  p1 ?( h/ d4 G8 O0 U        i:integer;
/ [; W, r1 f; w. r& V        Res:string;
0 S+ S9 ?" v, X$ }        obj:object;
do
* a' V0 |6 b% G& L5 J        if existsObject("Status") then
; v0 A! A4 j1 ]$ z8 L                Status.deleteObject;
  D& R$ G& K5 R0 b: _: S. T        end;
# U- \8 {, X  v  M3 Z0 ^; M3 d        for i:=1 to 10 loop
9 Z* k; `4 D6 l2 D/ S                Res:=sprint("Store_",i);
                if existsObject(Res) then
                        Obj:=str_to_obj(Res);
7 w% \/ l/ r8 H2 o3 n8 Q* K                        Obj.deleteObject;
8 E1 j' C- N( `6 ]& U0 o5 l6 M7 t. v                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
' m: T5 F- ?. e6 v                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
1 ~0 M6 A: e$ T$ L0 F                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
" K, k4 H* e: `# S. s                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
# b- Z. E( ^, E( ~5 [               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
6 A' n. o! C' O  d                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
                Obj.maxxDim:=WH_x;
! U- R& U4 e7 G9 Q( f3 d                Obj.maxyDim:=WH_y;
3 [5 K: U. T4 v1 G: o0 N) ~! y                Obj.ColumnWidth:=3;
4 L  P7 v  n0 p: D        next;
$ V$ v7 G9 ^9 f' @' c, E& q$ |       
        .Delivery.MUs.Forklift.speed:=2;
# X9 ~* i- n& D2 S$ Q6 `/ G        WH_var.delete({1,Part_Nums+1}..{*,*});
3 K5 x+ P- |% a3 ?  h& n. X        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
# D$ J( K( ?% B/ Z# @. ?( Z+ L) w# oend;
& W2 z* i* P2 Z: v; S6 @+ H出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
1 {4 Z  s2 f$ y( t" D. [- m