TRect selRect;
selRect.left    =  paintView->SelectedRect.x;
selRect.bottom  =  paintView->SelectedRect.y;
selRect.right   =  selRect.left + paintView->SelectedRect.width;
selRect.top     =  selRect.bottom - paintView->SelectedRect.height;
// pointer to original image in paintView.
TIEBitmap *image   = paintView->IEBitmap;
TIEBitmap *tempImg = new TIEBitmap(image, selRect);
TIEBitmap *tempAlpha = new TIEBitmap();
tempAlpha->CopyFromTIEMask(paintView->SelectionMask);
// if original bitmap has alpha channel, we will merge selection 
// and original image alpha channels
if (image->HasAlphaChannel)
   image->MergeAlphaRectTo(tempImg,  paintView->SelectedRect.x,  paintView->SelectedRect.y, 0, 0, tempImg->Width, tempImg->Height);
else
   {
   tempImg->AlphaChannel->Fill(255);
   tempAlpha->CopyRectTo(tempImg->AlphaChannel,  paintView->SelectedRect.x,  paintView->SelectedRect.y, 0, 0, tempImg->Width, tempImg->Height);
   }
// assign tempImage to a new layer
paintView->LayersAdd();
paintView->IEBitmap->Assign(tempImage); // copy with alpha channel
delete tempImage;
delete tempAlpha;

var
  sel: TIERectangle;
begin
  if ImageEnView1.Selected then
  begin
    sel := ImageEnView1.SelectedRect;
    ImageEnView1.LayersAdd( ielkShape, sel.x, sel.y, sel.width, sel.height );
    TIEShapeLayer( ImageEnView1.CurrentLayer ).Shape := iesEllipse;
  end;
end;

// Create image layer from current selection
if ImageEnView1.Selected then
begin 
  bmp := TIEBitmap.create();
  ImageEnView1.CopySelectionToBitmap( bmp, False );
  ImageEnView1.LayersAdd( bmp );
  ImageEnView1.CurrentLayer.PosX := ImageEnView1.SelectedRect.x;
  ImageEnView1.CurrentLayer.PosY := ImageEnView1.SelectedRect.y;
  ImageEnView1.Deselect;
  ImageEnView1.Update();
  bmp.Free;
end;

// Save the selected image to PNG (including alpha channel information)
bmp := TIEBitmap.Create;
ImageEnView1.CopySelectionToIEBitmap( bmp, False ) ;
bmp.Write( 'D:\out.png' );
bmp.free;

ImageEnView1.LayersCreateFromSelection;