Screen.Cursor := crHourglass;
try
  iLayer := ImageEnView.LayersAdd(ielkShape);
  ImageEnView.Layers[iLayer].Name := 'Shape Layer';
  ImageEnView.Layers[iLayer].PosX := ImageEnView.Layers[iLayer - 1]
          .PosX + 100;
  ImageEnView.Layers[iLayer].PosY := ImageEnView.Layers[iLayer - 1]
          .PosY + 100;
  ImageEnView.LayersCurrent := iLayer;
  with TIEShapeLayer(ImageEnView.CurrentLayer) do
  begin
     Shape := iesRoundRect;
     ImageEnView.Update;
  end;
  ImageEnView.MouseInteract := ImageEnView.MouseInteract +
     [miMoveLayers, miResizeLayers];
finally
  Screen.Cursor := crDefault;
end;