EasyMap VCL
TRegion
TRegion = class(TCustomMapObject)
Unit
MapObjects
Description
This class object can be shown at the map as simple or complex polygon. It can be created automatically while loading data from MIF file or while run-time, for example:

procedure TForm1.FormDblClick(Sender: TObject);
var rgn: TCustomMapObject;
begin
  ...
  Map.Layers.Add.name := 'Test layer';
  rgn := Map.Layers.Last.NewObject(TRegion);
  rgn.Parts.Add;
  rgn.Parts.Last.Points.Add(x0, y0);
  rgn.Parts.Last.Points.Add(x1, y1);
  rgn.Parts.Last.Points.Add(x2, y2);
  ...
  rgn.Parts.Last.Points.Add(xN, yN);
  rgn.Parts.Last.Points.Add(x0, y0);
  rgn.Draw;
end;