Problemas con zoom

[mrnovice]

Muy buen día, disculpen las molestias que pueda ocasionar, lo que pasa es que estoy realizando una aplicación que consta de adquirir imágenes escaneadas, pero le estoy agregando una herramienta de zoom,esta me funciona perfectamente al abrir el archivo mediante un OpenPictureDialog, pero al adquirirla mediante el escáner no me permite realizarle un zoom, utilizo un Timage<Cuando es Abrir pues es básicamente Image1.LoadFromFile()... y cuando es adquirido es assignado>

Código Delphi [-]
procedure TFormMain.BitBtn2Click(Sender: TObject);
var h, v, h1, v1 :real;
valor:integer;
begin
     h := PropiedadW; {Width}
     v := PropiedadH;{Height}
     v1 := ((v*110)/100);
     h1 := ((h*110)/100);
     image.Constraints.MaxHeight :=  trunc(v1);
     image.Constraints.MaxWidth  :=  trunc(h1);
     image.Constraints.MinHeight :=  trunc(v1);
     image.Constraints.MinWidth  :=  trunc(h1);
end;
//procedimiento para zoom es el de arriba

asignaciones al Timage

Código Delphi [-]
   Image.Picture.Assign(TBitmap(ImageList[0]));//1
   Image.Picture.LoadFromFile(OpenPictureDialog1.FileName);//2

la cuestión en si es que no me deja darle zoom por la opción 1,¿Qué se puede hacer? alguna recomendación?
No sé si sea lo mismo pero digamos que dibujamos dentro de un Timage con canvas se puede dar zoom con el código de arriba?

[[cHackAll]]

Empezado por mrnovice

¿Qué se puede hacer? alguna recomendación?

Puedes utilizar un TBitmap temporal y usar el método ó API CopyRect para realizar el Zoom en un objeto que no este protegido.

Saludos

[mrnovice]

Muchas gracias eres la eminencia, jejej el problema ha sido resuelto no se por que paso pero en teoria no debio pero bueno, voy a destripar paso por paso
jejeje gracias