procedure TformMain.mExtractFacesClick(Sender: TObject);
begin
  ImageEnViewPixelEditor.MouseInteractLayers := [mlMoveLayers, mlResizeLayers];
  // Layers cannot be dragged beyond the background layer:
  ImageEnViewPixelEditor.LayerOptions := ImageEnViewPixelEditor.LayerOptions + [loPreventOutOfBounds];

  // create objectsFinder:
  var objectsFinder := IEVisionLib.createObjectsFinder();
  // following haar parameters may vary by image content:
  objectsFinder.setDivisor(1);
  objectsFinder.setHaarMinNeighbors(4);
  //objectsFinder.setHaarScaleFactor(1.2);
  // Add classifiers:
  objectsFinder.addClassifier('face detector 1', IEVisionLib.createCascadeClassifier(IEVC_FRONTAL_FACE_DEFAULT));
  objectsFinder.addClassifier('face detector 2', IEVisionLib.createCascadeClassifier(IEVC_FRONTAL_FACE_ALT_TREE));
  objectsFinder.addClassifier('face detector 3', IEVisionLib.createCascadeClassifier(IEVC_FRONTAL_FACE_ALT));
  objectsFinder.addClassifier('face detector 4', IEVisionLib.createCascadeClassifier(IEVC_FRONTAL_FACE_ALT_2));
  objectsFinder.addClassifier('face detector 5', IEVisionLib.createCascadeClassifier(IEVC_PROFILE_FACE));
  CodeSite.Send('TformMain.mExtractFacesClick: 1');
  // Find Faces in image:
  objectsFinder.findIn(ImageEnViewPixelEditor.IEBitmap.GetIEVisionImage());
  var rects := objectsFinder.mergeAllRects(); // merge intersecting rectangles
  CodeSite.Send('TformMain.mExtractFacesClick: 2');
  // Draw rects to image:
  ImageEnViewPixelEditor.LayersClear(False);
  var r: TIEVisionRect;
  for var i := 0 to rects.size() - 1 do
  begin
    r := rects.getRect(i);
    //with ImageEnViewPixelEditor.IEBitmap.Canvas do
    begin
      {Pen.Width := 2;
      Pen.Color := clRed;
      Brush.Style := bsClear;
      Rectangle(r.x, r.y, r.x + r.width, r.y + r.width);}

      var ThisLayer := ImageEnViewPixelEditor.LayersAdd(iesRectangle, Rect(r.x, r.y, r.x + r.width, r.y + r.height),
        clRed, 2, clYellow);
      ImageEnViewPixelEditor.Layers[ThisLayer].Visible := True;
      ImageEnViewPixelEditor.Layers[ThisLayer].VisibleBox := True;
      ImageEnViewPixelEditor.Layers[ThisLayer].Transparency := 64;
      ImageEnViewPixelEditor.Layers[ThisLayer].Tag := FFaceLayer;
      ImageEnViewPixelEditor.Layers[ThisLayer].BorderColor := clRed;
      ImageEnViewPixelEditor.Layers[ThisLayer].BorderWidth := 2;
    end;
  end;
  ImageEnViewPixelEditor.Update;
  CodeSite.Send('TformMain.mExtractFacesClick: 3');
end;

for var i := 0 to rects.size() - 1 do
begin
  r := rects.getRect(i);
  var bm := TIEBitmap.Create;
  cxImageListLarge.GetImage(11, bm.VclBitmap); // semi-transparent mono-color PNG image
  var ThisLayer := ImageEnViewPixelEditor.LayersAdd(bm);
  ImageEnViewPixelEditor.Layers[ThisLayer].LayerRect := Rect(r.x, r.y, r.x + r.width, r.y + r.height);
  ImageEnViewPixelEditor.Layers[ThisLayer].Visible := True;
  ImageEnViewPixelEditor.Layers[ThisLayer].VisibleBox := True;;
  ImageEnViewPixelEditor.Layers[ThisLayer].Tag := FFaceLayer;
  ImageEnViewPixelEditor.Layers[ThisLayer].BorderColor := clRed;
  ImageEnViewPixelEditor.Layers[ThisLayer].BorderWidth := 2;
  bm.Free;
end;

for var i := 0 to rects.size() - 1 do
begin
  r := rects.getRect(i);
  var ThisLayer := ImageEnViewPixelEditor.LayersAdd(iesRectangle, Rect(r.x, r.y, r.x + r.width, r.y + r.height),
    clRed, 2, clYellow);    
  ImageEnViewPixelEditor.Layers[ThisLayer].Visible := True;
  ImageEnViewPixelEditor.Layers[ThisLayer].VisibleBox := True;
  ImageEnViewPixelEditor.Layers[ThisLayer].Operation := ielAverage;
  ImageEnViewPixelEditor.Layers[ThisLayer].Tag := FFaceLayer;
  ImageEnViewPixelEditor.Layers[ThisLayer].BorderColor := clRed;
  ImageEnViewPixelEditor.Layers[ThisLayer].BorderWidth := 2;
end;