var
  i : Integer;
  objectsFinder: TIEVisionObjectsFinder;
  rects: TIEVisionVectorRect;
  r: TIEVisionRect;
  Text_Color: String;
begin
  objectsFinder := IEVisionLib.createObjectsFinder();
  objectsFinder.addClassifier('face detector 5', IEVisionLib.createCascadeClassifier(IEVC_PROFILE_FACE));
  objectsFinder.findIn(ImageEnView2.IEBitmap.GetIEVisionImage());
  rects := objectsFinder.mergeAllRects();  // merge intersecting rectangles
  for i := 0 to rects.size() - 1 do
  begin
    r := rects.getRect(i);

    with ImageEnView1.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 );
    end;
  end;
  ImageEnView2.Proc.TextOut( Align_Text_Near_LEft, Align_Text_Near_Top, Format( 'Found: %d', [ rects.size ]), 'Arial', 12, clWhite, [fsBold]);
  ImageEnView2.Update();