function CreateShapefile(const FileName: string; pFields: IFieldsEdit;
ShapeType: Integer; SpatialReference: ISpatialReference = nil):
IFeatureClass;
var
strFolder, strName : string;
pWS : IWorkspace;
pFWS : IFeatureWorkspace;
pWorkspaceFactory : IWorkspaceFactory;
pField : IFieldEdit;
pGeomDef : IGeometryDefEdit;
pFeatureClass : IFeatureClass;
const
strShapeFieldName = 'Shape';
begin
strFolder := ExtractFileDir(FileName);
strName := ExtractFileName(FileName);
pWorkspaceFactory := CoShapefileWorkspaceFactory.Create as
IWorkspaceFactory;
pWorkspaceFactory.OpenFr