Estoy trabajando con Delphi. Tengo TImage, al que le asigno un mapa de bits.

imgmain.Picture.Bitmap := bmpMain;
imgmain.Picture.Bitmap.PixelFormat := pf24bit;

imgmain es objeto de TImage y bmpMain es objeto de TBitmap

Quiero ampliar mi imagen. Tengo una barra de seguimiento en mi formulario y cuando hago clic en la barra de seguimiento, la imagen debería obtener un zoom. ¿Qué tengo que hacer?
Gracias.

Editar:
Encontré alguna solución enaquí Funciona pero cortó mi imagen.