Reducir una TImageList por encima

[Deiv]

Pues lo he resuelto de esta manera:

Código Delphi [-]
    Image1.Transparent:= True;
    Image1.Picture.Bitmap.TransparentMode:= tmFixed;
   
    Image1.Picture.Bitmap.PixelFormat:= pf32bit;  
    Image1.Picture.Bitmap.Transparent := True;
    Image1.Picture.Bitmap.TransparentColor:= clWhite;
    Form1.DoubleBuffered:= True

Y lo dibujo en:

Código Delphi [-]
    Image1.picture.bitmap.PixelFormat:= pf32bit;
    Image1.picture.bitmap.canvas;
    ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

Para mis conocimientos me costó mucho e inclusive aún dudo si más adelante lo implemento me trabaje bien.