mapFields.AddStringField("Name", 200)
mapFields.AddStringField("Code", 80)
mapFields.AddNumericField("X", 12, 8)
mapFields.AddNumericField("Y", 12, 8)
mapLayerInfo.Type = MapXLib.LayerInfoTypeConstants.miLayerInfoTypeNewTable
mapLayerInfo.AddParameter("FileSpec", mapsInfo.MapTempPath & mapsInfo.MapsName & ".Tab")
mapLayerInfo.AddParameter("Name", mapsInfo.LayerName)
mapLayerInfo.AddParameter("Fields", mapFields)
map.Layers.Add(mapLayerInfo, 1)