Firemonkey TImageControl zoom

Question

Я хочу изменить способ, которым TImageViewer в Firemonkey обрабатывает масштабирование. Когда я поворачиваю колесо мыши, изображение должно увеличиваться, но изображение не должно центрироваться. Вместо этого пиксель, который был в положении мыши до увеличения, все еще должен быть в положении мыши после увеличения. Следовательно, он должен работать так же, как Windows Photo Viewer.

Я использую XE3 и программирую на Delphi.