FMX Image zoom onMouseWheel

[danten]

Hi to all.
I need to zoom the image in Delphi FMX under Windows.

I have one image on the form and upload a bitmap of 4500 x 4500 px (component image1) into it.

I insert a Selection 1 (TSelection) component on the image 1 component (selection1.Parent: = image1).

I insert image2 into the Selection component and set align allClient.

Now I need both components image1onMouseWheel to zoom: image 1 + Selection1.

I'm doing it so I can do it
image1.MakeScreenshot and had an original image size of image1 and a reduced image size of image 2.

Can it be done?

Thank you