Delphi - TImage - Ako vytvoriť "lupu"?

Robím výstup programu. Potrebujem, aby to bolo v TImage a aby som videl celý obrázok. Nie je problém nastaviť to tak. O čo mi ale ide? Keď kliknem niekde na obrázok, chcem, aby sa zobrazila len časť obrázku, na ktorú som klikol v mierke 1:1 v strede okna. Jedná sa teda o niečo podobné ako je vo Worde. Každý určite vie, o čom hovorím. Chcem sa spýtať, ako nastaviť, že ktorý výrez z TImage.Picture.Bitmap.Canvas sa má zobraziť v TImage.Canvas (zvyšok sa bude dať zobraziť posunutím posuvníkov, ktoré sa zobrazia v TImage)? Dúfam, že každý porozumel.