procedure TMainForm.ButtonGrabCutSelectClick(Sender: TObject);
var
  gc: TIEVisionGrabCut;
begin
  SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
  gc := IEVisionLib().createGrabCut();
  gc.setInputImage(ImageEnView1.IEBitmap.GetIEVisionImage());
  case RadioGroupSelection.ItemIndex of
    0:  // rectangular selection
      begin
        gc.setForegroundRect(IEVisionRect(ImageEnView1.SelectedRect));
        //showmessage(format('%d %d %d %d', [ImageEnView1.SelectedRect.x, ImageEnView1.SelectedRect.y, ImageEnView1.SelectedRect.width, ImageEnView1.SelectedRect.height]));
      end;

    1: // irregular selection
      begin
        gc.setSelectionMask(ImageEnView1.SelectionMask);
      end;
  end;
  gc.run(5);
  ImageEnView1.Deselect;
  gc.getSelectionMask(ImageEnView1.SelectionMask);
  ImageEnView1.SelectCustom();
end;