El tema de reducir imágenes se ha tratado muchas veces en el foro. Aquí te dejo unos cuantos enlaces, tan solo en los que yo participo, puedes imaginarte que existen muchos mas
La primera opción es usar la propiedad Streach del TImage, el problema seria transformar las coordenadas que nos devolvería el evento del ratón a las coordenadas reales. Pero eso ya lo solucionamos aquí:
http://www.clubdelphi.com/foros/showthread.php?t=30854
La segunda opción es reducir realmente el tamaño de la imagen antes de cargarla en el TImage, eso lo tratamos, entre otros, aquí:
http://www.clubdelphi.com/foros/showthread.php?t=30918
http://www.clubdelphi.com/foros/showthread.php?t=32407
http://www.clubdelphi.com/foros/showthread.php?t=31642
Seguiríamos teniendo el problema de traducir las coordenadas, pero usando el ejemplo del método Streach no seria muy difícil adaptarlo a este caso.