Delphi+MapX修改标注的源码

yr   :=   Map1.Layers.CreateLayer('tempanimate',   EmptyParam,   1,   EmptyParam,   EmptyParam);
      map1.Layers.AnimationLayer   :=   lyr;
      lyr.Visible   :=   true;
      lyr.Editable   :=   True;
      pt   :=   CoPoint.Create;
      mstyle   :=   CoStyle.Create;

      mstyle   :=   Map1.DefaultStyle;

      mstyle.PickSymbol;

      adoquery1.First;
      WHILE   NOT   adoquery1.Eof   DO
          BEGIN
              x   :=   ADOQuery1.fieldbyname('X').AsFloat;
              y   :=   ADOQuery1.fieldbyname('Y').AsFloat;
              str   :=   ADOQuery1.fieldbyname('Name').AsString;
              pt.Set_(x,   y);
              fts   :=   Map1.FeatureFactory.CreateSymbol(pt,   mstyle);  

              fts.type_   :=   miFeatureTypeSymbol;  

              fts.Keyvalue   :=   str;//fts.keyvalue:为汉字时出现异常  

              lyr.AddFeature(fts,   EmptyParam);      
              ADOQuery1.Next;
   
          END;
      lyr.AutoLabel   :=   true;  
      lyr.Visible   :=   true;
      lyr.ZoomMax   :=   77;  
      lyr.ZoomMin   :=   0;