Reducir una TImageList por encima

[Deiv]

Gracias Seoane, así funciona,
Ahora veré el modo de llevarlo a un TTimer para simular una blinkado, pues por un momento debe mostrar la parte de arriba de mi imagen, luego la de abajo el mismo elemento (parte gráfica) pero con distinto color (así los tengo)
Una consulta: ¿el orden de mi código está bien? por ejemplo en:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Bitmap.Free; tempBmp.Free; end;

Y otras líneas ¿están bien ordenados, o estoy muy chapulín?