/*********1-9
feats: IEnumFeature;
Feat: IFeature;
GeometryBag: IGeometryBag;
geocol: IGeometryCollection;
geo: IGeometry;
pRelOp: IRelationalOperator;
IGeometry;
i: Integer;
ALayer: ILayer;
FeatLayer: IFeatureLayer;
SpRel: esriSpatialRelEnum;
FeatCursor: IFeatureCursor;
sFilter: ISpatialFilter;
QueryData: TQueryData;
StrCurrentLayer: string;
Geo: IGeometry;