EasyMap VCL
TRectangle
TRectangle = class(TCustomMapObject)
Unit
MapObjects
Description
This class object can be shown at the map as rectange described by two points - bottom-left and top-right points. It can be created automatically while loading data from MIF file or while run-time, for example:

procedure TForm1.FormDblClick(Sender: TObject);
var rect: TRectangle;
begin
  ...
  Map.Layers.Add.name := 'Test layer';
  rect := TRectangle(Map.Layers.Last.NewObject(TRectangle));
  
  rect.x0 := x0;
  rect.y0 := y0;
  rect.x1 := x1;
  rect.y1 := y1;
  
  rect.Draw;
end;