[ecfisa]

Hola.

Como en el ejemplo anterior sólo permitía trabajar con bmp, te amplio el código de pegado de la selección:

Código Delphi [-]
...
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  BM: TBitmap;
begin
  Image2.Picture := nil;
  BM := TBitmap.Create;
  try
    BM.Height  := Image1.Picture.Height;
    BM.Width   := Image1.Picture.Width;
    BM.Canvas.Draw(0,0,Image1.Picture.Graphic);
    Image2.Canvas.CopyRect(Rect(0,0,X-P.X,Y-P.Y), BM.Canvas,Rect(P.X,P.Y,X,Y));
    Shape1.Visible := False;
    InSelect       := False;
  finally
   BM.Free;
  end;
end;

Saludos.