Firemonkey TImageControl缩放

Question

我想修改Firemonkey中的TImageViewer处理缩放的方式。当我滚动鼠标滚轮时，图像应该缩放，但图像不应该居中。相反，在缩放之前位于鼠标位置的像素在缩放后仍必须位于鼠标的位置。因此它应该与Windows Photo Viewer相同。

我正在使用XE3并在Delphi中编程。