Map Marker, Route and Area

procedure LoadPolygons(Results:TDataSet; aOpacity:integer; aWidth:integer; aLineCol:integer);
var
    sNumber : String;
begin
    sNumber := '';
    // show
    while not Results.EOF do begin
      if sNumber <> Results.FieldByName('number').asString then begin

        if PolygonItemRegion <> nil then begin // create/add
            Form1.Map1.CreateMapPolygon(PolygonItemRegion.Polygon);
        end;

        PolygonItemRegion := Form1.Map1.Polygons.Add;

        if not Results.FieldByName('Color').IsNull then begin
            PolygonItemRegion.Polygon.BackgroundColor := Results.FieldByName('Color').AsInteger; //The color of the polygon.
            PolygonItemRegion.Polygon.HoverBackgroundColor := Results.FieldByName('Color').AsInteger;  //The color of the polygon when hovered
            PolygonItemRegion.Polygon.HoverBorderColor := clblue;  //The border color of the polygon when hovered
        end;

        PolygonItemRegion.Polygon.Editable:= false;
        PolygonItemRegion.Polygon.BackgroundOpacity := aOpacity;
        PolygonItemRegion.Polygon.BorderWidth := aWidth;
        PolygonItemRegion.Polygon.BorderColor := aLineCol;
        PolygonItemRegion.Polygon.Tag := Results.FieldByName('mapID').asInteger;
        PolygonItemRegion.Polygon.ZIndex := 0; // <<<-----  add this line
      end;

      sNUmber := Results.FieldByName('number').asString;
      PolygonItemRegion.Polygon.Path.Add(Results.FieldByName('Latitude').AsFloat, Results.FieldByName('Longitude').AsFloat);
      Results.Next;
    end;
    Results.Free;
end;