Si necesitas varias imagenes, puedes usar un arreglo:
Código Delphi
[-]
type
TImagenes = array [Boolean, 0..100] of TImage;
var arr: Timagenes;
En los indices arr[false,0], arr[false,1], cargas todas las imagenes que se muestran por defecto.
En los indices arr[true, 0], arr[true,1] cargas las imagenes que se van a superponer cuando esté el mouse arriba.
Así el índice numérico indica la imagen en cuestion, y el parámetro true/false, si se va a cargar la imagen por defecto, o bien la que está para superponerse.
¿Te sirve algo asi?
Un saludo