var
  LayerKrivulja, LayerMreza, i, iBMPsir, iBMPvis : Integer;
  sMapa, sDatotekaBMP : string;
  AP : array [0..5] of TPoint ;
  sredina, pnVogalLZ : Tpoint;
  cl_rgb : TRGB;
begin
  iBMPsir := ImageMreza.Picture.Bitmap.Width; //ImageMreza is a hidden bitmap on the form...
  iBMPvis := ImageMreza.Picture.Bitmap.Height;
  with ImageEnVGraf do
  begin
    LayerMreza := LayersAdd(ielkImage);
    CurrentLayer.Bitmap.Assign(ImageMreza.Picture.Bitmap);
    Update();

    LayerKrivulja := LayersAdd( ielkPOLYLINE );
    CurrentLayer.AspectRatioLocked := True;
    CurrentLayer.Width  := Layers[LayerMreza].Width ;
    CurrentLayer.Height := Layers[LayerMreza].Height ;
    
    {code for calculation of the points, fills array AP} 

    with TIEPolylineLayer(CurrentLayer) do
    begin
      PolylineClosed := True;
      ClearAllPoints();
      for i := Low(AP) to High(AP) do
        AddPoint(AP[i].x, AP[i].y);//, iepbBitmap, False);
      FillColor := IzracunajBarvoLika;
      FillOpacity := (110/255);
      LineColor := clBlack;
      LineWidth := 1;
    end;
    Update();
  end;

  ImageEnVGraf.LayersMergeAll;
  ImageEnVGraf.Update();

  ImageEnVGraf.SelectionBase := iesbBitmap;
  ImageEnVGraf.Select(0, 0, iBMPsir , iBMPvis , iespReplace);
  ImageEnVGraf.LayersCreateFromSelection;
  ImageEnVGraf.DeSelect ;
  ImageEnVGraf.LayersRemove(0);
  ImageEnVGraf.LayersMergeAll;

var
  LayerKrivulja, LayerMreza, iBMPsir, iBMPvis : Integer;
  AP : array [0..5] of TPoint ;
  sredina : TPoint;
  cl_rgb : TRGB;
  myRect : TRect;
begin 
//ImageMreza is a hidden bitmap on the form...
  iBMPsir := ImageMreza.Picture.Bitmap.Width;
  iBMPvis := ImageMreza.Picture.Bitmap.Height;
  with ImageEnVectGraf do
  begin
    //copy bitmap to the first layer
    LayerMreza := LayersAdd;
    CurrentLayer.Bitmap.Assign(ImageMreza.Picture.Bitmap);
  end;

  //In second hidden ImageEnVect we create the polygon
  With ImageEnVectGrafTMP do
  begin
    LayerKrivulja := LayersAdd;
    Layers[LayerKrivulja].Width  := ImageEnVectGraf.Layers[LayerMreza].Width ;
    Layers[LayerKrivulja].Height := ImageEnVectGraf.Layers[LayerMreza].Height ;

    {calculation of the points}

    //Draw the polygon from those 6 points in AP
    //Calculate the colours
    Layers[LayerKrivulja].Bitmap.Canvas.Brush.Color := IzracunajBarvoLika ;

    Layers[LayerKrivulja].Bitmap.Canvas.Pen.Color := clBlack ;
    //Draw the shape
    Layers[LayerKrivulja].Bitmap.Canvas.Polygon( AP );
    //Create an layer
    MagicWandTolerance := 10000 ;
    MagicWandMode := iewGlobal ;
    MagicWandMaxFilter := false;
    SelectMagicWand( sredina.X , sredina.Y , iespReplace);
    LayerKrivulja := LayersCreateFromSelection;

    cl_rgb := Layers[LayerKrivulja].Bitmap.Pixels[1,1];
    Proc.SetTransparentColors( cl_rgb, cl_rgb, 0);
  end;
  //Transfer the polygon from ImageEnVectGrafTMP to final ImageEnVectGraf.
  //make the polygon transparent
  With ImageEnVectGraf do
  begin
    LayerKrivulja := LayersAdd( ImageEnVectGrafTMP.Layers[LayerKrivulja].Bitmap,
                                -1,
                                -1,
                                0, //ImageEnVectGraf.Layers[LayerMreza].Width,
                                0, //ImageEnVectGraf.Layers[LayerMreza].Height,
                                true);
    Layers[LayerKrivulja].Transparency := 110 ;
  end;

  ImageEnVectGraf.LayersMergeAll;

  ImageEnVectGraf.SelectionBase := iesbBitmap;
  ImageEnVectGraf.Select(0, 0, iBMPsir , iBMPvis , iespReplace);
  ImageEnVectGraf.LayersCreateFromSelection;
  ImageEnVectGraf.DeSelect ;
  ImageEnVectGraf.LayersRemove(0);

  ImageEnVectGraf.CurrentLayer.PosX := ImageEnVectGraf.Width - Round(ImageEnVectGraf.CurrentLayer.Width) div 2;
  ImageEnVectGraf.CurrentLayer.PosY := ImageEnVectGraf.Height - Round(ImageEnVectGraf.CurrentLayer.Height) div 2;
  ImageEnVectGraf.Update;

procedure TForm1.Button1Click(Sender: TObject);
const
  Image_Filename = 'NbaNVsus_IEV.bmp';      // size of bitmap (ImageMreza) is 240 x 300
  AP: array[0..5] of TPoint = (
    (X: 130; Y: 125),
    (X: 152; Y: 137),
    (X: 249; Y: 219),
    (X: 130; Y: 181),
    (X: 22;  Y: 212),
    (X: 108; Y: 138)
  );
  IzracunajBarvoLika = clYellow;
var
  LayerKrivulja, LayerMreza, i, iBMPsir, iBMPvis : Integer;
  sMapa, sDatotekaBMP : string;
  sredina, pnVogalLZ : Tpoint;
  cl_rgb : TRGB;
  ImageMreza: TIEBitmap;
begin
  ImageMreza := TIEBitmap.Create( Image_Filename );
  try
    iBMPsir := ImageMreza.Width; //ImageMreza is a hidden bitmap on the form...
    iBMPvis := ImageMreza.Height;
    with ImageEnVGraf do
    begin
      LayersClear();

      LayerMreza := LayersAdd(ielkImage);
      CurrentLayer.Bitmap.Assign(ImageMreza);
      Update();

      LayerKrivulja := LayersAdd( ielkPOLYLINE );

      // AspectRatioLocked not relevant
      // CurrentLayer.AspectRatioLocked := True;

      // Don't set the width/height because these will be calculated automatically by setting the points
      // CurrentLayer.Width  := Layers[LayerMreza].Width ;
      // CurrentLayer.Height := Layers[LayerMreza].Height ;

      {code for calculation of the points, fills array AP}

      with TIEPolylineLayer(CurrentLayer) do
      begin
        PolylineClosed := True;
        ClearAllPoints();
        for i := Low(AP) to High(AP) do
          AddPoint( AP[i].x, AP[i].y, iepbBitmap  );
          {
          // OR JUST USE 
          SetPoints( AP, iepbBitmap );
          }

        FillColor := IzracunajBarvoLika;
        FillOpacity := (110/255);
        LineColor := clBlack;
        LineWidth := 1;
      end;
      Update();
    end;

    ImageEnVGraf.LayersMergeAll;
    ImageEnVGraf.Update();

    ImageEnVGraf.SelectionBase := iesbBitmap;
    ImageEnVGraf.Select(0, 0, iBMPsir , iBMPvis , iespReplace);
    ImageEnVGraf.LayersCreateFromSelection;
    ImageEnVGraf.DeSelect ;
    ImageEnVGraf.LayersRemove(0);
    ImageEnVGraf.LayersMergeAll;
  finally
    ImageMreza.Free();
  end;
end;