终于搞定了MapX的专题地图

终于搞定了mapx的专题地图，唉，资料真少呀。好不容易测试成功。

var
  ds: CMapXDataset;
  mBinlayer:  CMapXBindLayer;
  i,j: integer;
  str: string;
begin
  ADOConnection1.Connected := true;
  ADOQuery1.close;
  ADOQuery1.SQL.Text := 'select * from city';
  ADOQuery1.Open;
  mBinlayer := CoBindLayer.Create;
  mBinlayer.LayerName := 'sbount';
  mBinlayer.RefColumn1 := 'name';
  //mBinlayer.RefColumn2 := 'Latitude';
  mBinlayer.LayerType := miBindLayerTypeXY;
  ds := Map1.DataSets.Add(miDataSetADO,ADOQuery1.Recordset,
     EmptyParam,'CityName','count','sbount',EmptyParam,EmptyParam);
  ds.Themes.Add(miThemeDotDensity,'count','mythreme',true);