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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
5 i. t) `* S% Z' k$ B% b5 F  X        i:integer;
        Res:string;
; v8 g1 k2 D- U        obj:object;
8 M1 L9 s; q7 |' C6 }$ R; qdo
        if existsObject("Status") then
                Status.deleteObject;
# Z* r. s) ?9 \: \2 X        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
  x+ `6 S8 C/ e& ~1 M9 v4 y                if existsObject(Res) then
( Y9 J7 U+ e, H2 E) q; l% @$ t                        Obj:=str_to_obj(Res);
/ }- s, g" l) t& {9 y( K                        Obj.deleteObject;
( ^0 p/ a+ m& ?                end;
        next;
        --shengcheng Status:zimoxingceng
) v1 a, r' P' S- g8 P/ k        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
( o0 P- y( v! t        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
  v6 x9 \. o/ C2 d/ }& G, ~$ D                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
5 P/ S* |$ d" }6 q8 A                Obj.Label:=sprint("huojiaceng:",i);
1 n4 q( I' ?6 Y! J( W                Obj.xDim:=WH_x;
+ r) B3 A4 g' G$ O& n, N                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
                Obj.inheritFormat:=false;
& Q3 @8 {3 X% H                Obj.maxxDim:=WH_x;
6 j$ M# F  u  L3 T' u  Y1 Q                Obj.maxyDim:=WH_y;
+ r, i" R: @! ?                Obj.ColumnWidth:=3;
: n+ c% t6 s% Y9 r        next;
       
& \- I4 F: H6 k        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
7 \" e1 `" @9 F6 ^$ E1 D( y% S/ q        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
% o3 K+ @: L; V* r- u        next;
% G0 K2 k% C+ i% Y! iend;
" F; }8 _) F0 Q) o. h( O8 [出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

4 f: h! }2 L) \% ~- X