procedure TformInsertInternalImage.cxButtonEraserClick(Sender: TObject);
begin
  // strange side-effects after (repeated) switching between these two functionalities:

  if cxButtonEraser.Tag = 0 then
  begin
    cxButtonEraser.Tag := 1;
    cxButtonEraser.OptionsImage.ImageIndex := 1; // Eraser glyph colored
    ImageEnViewInsertInternal.BrushTool.BrushFill  := iebfEraser;
    ImageEnViewInsertInternal.BrushTool.BrushSize  := 32;
    ImageEnViewInsertInternal.MouseInteractGeneral := [miBrushTool]; // this CLEARS MouseInteractLayers!
  end
  else if cxButtonEraser.Tag = 1 then
  begin
    cxButtonEraser.Tag := 0;
    cxButtonEraser.OptionsImage.ImageIndex := 0; // Eraser glyph grey
    ImageEnViewInsertInternal.MouseInteractGeneral := [miSelect];

    // This is explicitly needed to RESTORE MouseInteractLayers - but after repeated switching, mlMoveLayers SOMETIMES is not restored(!):
    ImageEnViewInsertInternal.MouseInteractLayers := [mlMoveLayers,mlResizeLayers,mlRotateLayers];
  end;
end;

procedure Tfmain.Button4Click(Sender: TObject);
var
  i: Integer;
begin
  // Try to reproduce strange side-effects after (repeated) switching between these two functionalities:
  for i := 1 to 5000 do
  begin
    if Button4.Tag = 0 then
    begin
      Button4.Tag := 1;
      // cxButtonEraser.OptionsImage.ImageIndex := 1; // Eraser glyph colored
      ImageEnView1.BrushTool.BrushFill  := iebfEraser;
      ImageEnView1.BrushTool.BrushSize  := 32;
      ImageEnView1.MouseInteractGeneral := [miBrushTool]; // this CLEARS MouseInteractLayers!
    end
    else
    // if Button4.Tag = 1 then
    begin
      Button4.Tag := 0;
      // cxButtonEraser.OptionsImage.ImageIndex := 0; // Eraser glyph grey
      ImageEnView1.MouseInteractGeneral := [miSelect];

      // This is explicitly needed to RESTORE MouseInteractLayers - but after repeated switching, mlMoveLayers SOMETIMES is not restored(!):
      ImageEnView1.MouseInteractLayers := [mlMoveLayers,mlResizeLayers,mlRotateLayers];

      if not ( mlMoveLayers in ImageEnView1.MouseInteractLayers) then
        raise Exception.create( 'Error' );
    end;

    Application.ProcessMessages();
  end;
end;

procedure TForm1.ImageEnView1LayerNotify(Sender: TObject; layer: Integer; event: TIELayerEvent);
var
  TextLayer: iexLayers.TIETextLayer;
begin
  // if a layer is selected (either by the user or programmatically):
  if event = ielSelected then
  begin
    // make Layers always movable, resizable, rotatable:
    ImageEnView1.MouseInteractLayers := [mlMoveLayers,mlResizeLayers,mlRotateLayers];
  end;
end;