frmExportShapefileObjectsUnit
type TBoundaryName = class(TObject)
Name: string;
BoundaryType: TBoundaryType;