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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
语句是这样的
is
        i:integer;
7 T2 Y% J( B* U3 `# C" K' R: Z        Res:string;
/ ?( S! I, m. q- l3 P8 D        obj:object;
% e7 J% G& l# U8 l4 ?. @' s' wdo
        if existsObject("Status") then
                Status.deleteObject;
        end;
' B9 U4 ?" L& @# e5 Z9 V* ~% v$ ~        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
. v+ O, }9 Q; d! H- u) \                if existsObject(Res) then
& l6 N' l  k+ z                        Obj:=str_to_obj(Res);
                        Obj.deleteObject;
                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
7 X+ e0 v% Z7 n4 f# u  ?3 s! g        Obj.Label:="warehouse status";
       
        for i:=1 to WH_nums loop
. a/ d: I6 [2 m                Res:=sprint("Store_",i);
# J8 g  x1 v% k' b2 P# c! `                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
8 z+ @; y0 i9 N8 G/ v7 F                Obj.Label:=sprint("huojiaceng:",i);
                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
                Res:=sprint("StoreData_",i);
               
+ X" r" O& b8 A                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
' j3 V% ^& P2 ^                Obj.inheritFormat:=false;
7 s7 E! K- _' T8 ]                Obj.maxxDim:=WH_x;
% q) Y# I/ N, y                Obj.maxyDim:=WH_y;
: T, D8 Q" e! e, Z/ t, M                Obj.ColumnWidth:=3;
        next;
       
6 R  j* O4 z) ?1 ^% ^        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
. v: M8 ]: f$ {8 x* l$ U. ~                WH_var[1,i]:=chr(64+i);
# H; t( S3 b  C1 P8 e: P" W        next;
end;
- @6 b& S! Z& B' L4 c出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了
( w/ u1 ^0 Y6 g  f/ g: b, R