How to zoom images loaded in TImage control in Delphi XE2 Trial?

Question

I have developed a small utility to load different types of image files in TImage control in Delphi XE2. Now I would like to implement and test zooming functionality, with built-in controls only (i.e. not using any 3rd party component).

Answer 1

See the second part of this answer which zooms in and out a TImage by using the mouse wheel.

Note: It repositions the image component.