Estoy usando Delphi 2009 y me gustaría escalar una imagen para que se ajuste al espacio disponible. La imagen siempre se muestra más pequeña que la original. El problema es que la propiedad TImage Stretch no hace un buen trabajo y daña la legibilidad de la imagen.

forma fea http://xrw.bc.ca/download/so/TImageStretch.gif

Me gustaría verlo escalado así en su lugar:

forma más agradable http://xrw.bc.ca/download/so/NicerTImageStretch.png

¿Alguna sugerencia de la mejor manera de hacer esto? Intenté JVCL, pero no parece tener esta habilidad. Una biblioteca gratuita estaría bien, pero tal vez haya una biblioteca de bajo costo que haga "solo" esto también estaría bien.