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

effie不是东北人

我在做《生产系统仿真——plant simulation应用教程》第八章的仓储案例，在8.2.2里需要生成仓储货架层，我按照书上的语句输进去之后结果在22行出错了。
/ H; n! O1 X- l  G3 J语句是这样的
is
        i:integer;
& P) F% o* z. @7 }7 ]        Res:string;
" Q$ s  q' g6 ?, j+ O        obj:object;
do
        if existsObject("Status") then
% Z2 G# E: O3 }( w: g                Status.deleteObject;
        end;
        for i:=1 to 10 loop
                Res:=sprint("Store_",i);
                if existsObject(Res) then
0 Y  J& K4 w  O6 v; R                        Obj:=str_to_obj(Res);
5 ?) w+ p* u  D, u. U                        Obj.deleteObject;
; N+ P. l! L* p                end;
        next;
        --shengcheng Status:zimoxingceng
        Obj:=.MaterialFlow.Frame.createObject(current,160,140,"Status");
        Obj.Label:="warehouse status";
       
  |6 B- d- ]& i# U+ C# e8 h, }        for i:=1 to WH_nums loop
                Res:=sprint("Store_",i);
( S3 j& J3 t7 y. X                Obj:=.Delivery.Res.store.createObject(current,400,i*80,Res);
                Obj.Label:=sprint("huojiaceng:",i);
0 Y0 \$ G3 d+ p( w( J                Obj.xDim:=WH_x;
                Obj.yDim:=WH_y;
5 K* e0 e/ U( [1 X' d                Res:=sprint("StoreData_",i);
               
                Obj:=.InformationFlow.TableFile.createObject(current.Status,i*120-60,40,Res);
                Obj.Label:=sprint("huojiaceng:",i);
9 T& u, V+ V+ ?: [6 H                Obj.inheritFormat:=false;
- A8 n# W6 V2 d! k9 H" [                Obj.maxxDim:=WH_x;
  z: {0 G  }0 k9 T+ W- R% f                Obj.maxyDim:=WH_y;
                Obj.ColumnWidth:=3;
( ~. H0 J' p. A) T- }' V        next;
# [% E: P6 u/ Y8 q( P# {       
        .Delivery.MUs.Forklift.speed:=2;
        WH_var.delete({1,Part_Nums+1}..{*,*});
        for i:=1 to Part_Nums loop
                WH_var[1,i]:=chr(64+i);
        next;
" y9 L. D( {5 Q2 F/ Mend;
- b: I( w) t1 L! r  J6 {  f出错的截图在这里。这些语句可以生成出来子模型层Status，但是生成不了货架层，错误显示说是unknown identifer res.求大神帮忙看看！！！多谢了

( a' A% j" A. ~* `0 |* `) ?