frmExportShapefileObjectsUnit
type TFieldDefinition = record
DataArray: TDataArray;
FieldName: AnsiString;
FieldType: AnsiChar;