Reducir una TImageList por encima

[Deiv]

Seoane,
En varios de mis post me estuve haciendo mucho lío con el TPaintBox (y la neta verdad ya totalmente me confundí, no sé ¿cuando darle una utilidad efectiva a un TPaintBox y cuando a una TIMage en Delphi?) por ello quise cambiar todo el código que me orientaste aquí a una TImage, y pensé que solo era cambiar (digamos en un botón) con ImageList1.Draw(Image1.Canvas,0,0,15) para mostrar ese pedazo [15]

Si bien el código no tiene error, me nacieron las siguientes dudas:

a) ¿Como transparentar en el TImage mi BitMap de la TImageList?, pues intenté colocando con las líneas:

Código Delphi [-]
ImageList1.BkColor:=clNone;
ImageList1.BlendColor:= clNone;
ImageList1.DrawingStyle:= dsTransparent;
ImageList1.Masked:= True;

y NO TUVE ÉXITO

Lo propio con:

Código Delphi [-]
Image1.Transparent:=true;
BitMap.TransparentColor:=BitMap.Canvas.Pixels[0,0]; //Tiene fondo blanco
BitMap.Transparent:= True;
BitMap.TransparentMode:= tmFixed;

TAMPOCO

b) ¿Qué diferencia hay si coloco BitMap.TransparentColor:=BitMap.Canvas.Pixels[1,1];?
Así parece que no transparenta cuando intenté en otra Aplicación de prueba cargando solo una imagen y transparentando como mencioné arriba y nada, pero con [0,0] si funcionaba.

Bueno en fin: entonces a la hora de dibujar ¿Cómo muestro digamos el índice 15 TRANSPARENTADO del TImageList en una TImage?
Mis agradecimientos anticipados por vuestros consejos.