[Neftali [Germán.Estévez]]

No se si es lo mismo, pero esto debería funcionar.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  ORect, Drect: TRect;
  Bitmap: TBitmap;
begin
  ORect := Image1.Picture.Bitmap.Canvas.ClipRect;
  DRect := Image1.ClientRect;

  // Copia
  Bitmap := TBitmap.Create;
  Bitmap.Width := Image1.Width;
  Bitmap.Height := Image1.Height;
  Bitmap.Canvas.CopyRect(DRect,
                         Image1.Picture.Bitmap.Canvas,
                         ORect);
  Bitmap.SaveToFile('.\logula2.bmp');
  Bitmap.Free;
end;