Imagen Semi Transparente con TrackBar

[Roll462011]

Estimados Foristas:
Soy relativamente nuevo en el Foro y en la OOP con Delphi. Un cliente me ha pedido una pequeña aplicación para crear las identificaciones personales para nieveles de acceso a su Empresa y he utilizado un truco o mas bien un tutorial publicado de manera fenomenal por "escafandra" en DelphiAccess, titulado Transparencias. Mi gratitud por este valioso aporte.
Ahora, he logrado implementar un método OnChange de un TTrackBar con el objetivo de ir incrementando o disminuyendo la Transparencia de la imagen de fondo a gusto del cliente.
Para lograrlo en el Create del Formulario incluí entre otras esta línea:

Image4.Picture.Bitmap.Assign(Image2.Picture.Bitmap);

Con el objetivo de tener la imagen original disponible para aplicar un nivel de transparencia y en el OnChange del TrackBar puse lo siguiente:

Image2.Picture.Bitmap.PixelFormat := pf32bit;
Image2.Picture.Bitmap.Assign(Image4.Picture.Bitmap);
DrawSemiTransparent(Image2.Canvas, Image3.Picture.Bitmap, TrackBar1.Position);
Invalidate;

Esto me funciona bien, aunque no sé si será la más profesional, solo que para terminar con un toque de profesionalismo me gustaría que ustedes me lo evaluaran y me dieran su criterio, pero que además me ayuden a buscar una solución al parpadeo de la imagen mientras le cambio la transparencia:



Esta es la Imagen despues de aplicar la transparencia