@ecfisa: Mil gracias, es exactamente lo que estaba buscando. Le agrego un .Picture Nil para limpiarla y volver a generarla.
Código Delphi
[-] sz : TSize;
begin
Image1.Picture := nil;
bm := Image1.Picture.Bitmap;
Por ahora en Delphi7 funciona, luego probare en el DelphiXE8 haber como funciona.