procedure TForm1.CreateLayersFromSelection1Click(Sender: TObject);
var
  iLayer: Integer;
begin
  Screen.Cursor := crHourglass;
  try
    { Copy selected area and create a new layer }
    iLayer := ImageEnView1.LayersCreateFromSelection;
    ImageEnView1.Layers[iLayer].Name := 'Image Layer';
    { Move the new layer }
    ImageEnView1.CurrentLayer.PosX := ImageEnView1.CurrentLayer.PosX + 200;
    ImageEnView1.CurrentLayer.PosY := ImageEnView1.CurrentLayer.PosY + 200;
    ImageEnView1.Update;
    ImageEnView1.Deselect;
    ImageEnView1.MouseInteract := [miMoveLayers, miResizeLayers];
    ImageEnView1.IEBitmap.Modified := True;
    ImageEnView1.SetFocus;
    DrawLayers;
    UpdateGUI;
    UpdateLayers;
    UpdateStatusBar;
  finally
    Screen.Cursor := crDefault;
  end;
end;