MapForums

        axMappointControl1.NewMap(MapPoint.GeoMapRegion.geoMapEurope);
            map = axMappointControl1.ActiveMap;

            app = map.Application;

            for (int i = 1; i < map.PlaceCategories.Count + 1; i++)
            {
                object index = i;
                MapPoint.PlaceCategory placeCategory =
                    map.PlaceCategories.get_Item(ref index) as MapPoint.PlaceCategory;
                placeCategory.Visible = false;

            }

var i: integer;
     oVar: OleVariant;
begin
   SMap.PlaceCategories.Visible := geoFalse;
   for i := 1 to SMap.PlaceCategories.Count do begin
      oVar := i;
      SMap.PlaceCategories.Item[oVar].Visible := false;
   end;
end;