救命呀！！！！！！！！！：关于动态给临时图层增加图元出错

<P>mapx5.0 ＋dephi ：动态给临时图层增加图元出错</P>
<P>for i=1 to 10
begin
    Rectangle:= CreateOleObject('MapX.Rectangle.5'); <a>file://创</A>建一个矩形对象
    Rectangle.Set(Nftrx1,Nftry1,Nftrx2,Nftry2);//确定位置
    ftr:= Map1.FeatureFactory.CreateRegion(Rectangle,map1.DefaultStyle);//创建出矩形图元
    newftr:=map1.Layers.item['SHlayer'].AddFeature(ftr,emptyparam);//将图元增加到某图层
    newftr.update(emptyparam,emptyparam) <a>file://保</A>存
end
第一次增加图元能够运行，
增加第二次时，运行到   ftr:= Map1.FeatureFactory.CreateRegion(Rectangle,map1.DefaultStyle);时出out of memory 错误！</P>