Thank you.

Here is a simple sample program: procedure TForm1.FormCreate(Sender: TObject); begin with Chart1.AddSeries(TMapSeries) as TMapSeries do begin with Shapes.Add do begin AddXY(0,0); AddXY(3,3); AddXY(2,5); end; // Add points end; // Create map with Chart1 do begin TMapSeries(Series[0]).Shapes[0].Color ...