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;
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;