[Lazarus] TBitmap magnifying glass effect

[Leonardo M. Ramé]

Hi, I'm can anyone point me to an example on how to do a simple
magnifying glass over a TImage?.

What I want to do is to draw a zoomed area over a TImage at mouse position, then, when I move
the mouse, the area is updated showing the new position, just like
Virtual Magnifying Glass, but for TImages/TBitmap.

Thanks in advance.
-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com