procedure TForm1.CreateLayerFromSelection1Click(Sender: TObject);
begin
  if ImageEnView1.Selected then
  begin
    { Create a new layer from selection }
    ImageEnView1.LayersCreateFromSelection;
    ImageEnView1.DeSelect;
    ImageEnView1.Update;
    ImageEnView1.Bitmap.Modified := ImageEnView1.Proc.UndoCount > 0;
    { Turn on Layers selection }
    ImageEnView1.Gestures.Pan.Enabled := False;
    ImageEnView1.Gestures.Zoom.Enabled := False;
    SelectLayers1.Down := True;
    ImageEnView1.MouseInteract := [miMoveLayers, miResizeLayers];
  end;
end;