Intersectar BitMaps con Transparencia

[Deiv]

Pensaba en el algoritmo siguiente: Colocar 2 TImage con diferentes BitMaps, estos ubicados en un 50% de intersección, calcular ese 50% de intersección con un TRect de la 1ra Imagen y el otro 50% de la 2da Imagen (llevando ambos a memoria), aplicar la Semi-transparencia solo a esta parte calculada con el código de arriba, es decir, dibujar nuevamente los BitMaps tal como son y la parte intersectada aplicar la semitransparencia redibujando.

El objetivo de mi pregunta era hacer mover 2 BitMaps y al intersectarse en cualquier posición verse estos con semitransparencia.

[Deiv]

Encontré lo que buscaba, en la página http://www.delphirss.com/graphic.html (para aquellos que no conocen o estén interesados) además existen otros buenos ejemplos. A lo que me refería está en "Transparent bitmap brush" El segundo gráfico cuando está encima del primero se sobrepone (ya no es necesario transparentarlos) pero para que se cumpla ello el fondo de cada uno debe ser de igual color y aplicar la propiedad TransparentColor := clWhite (por ejemplo); y Transparent := True;

El código es muy grande ¿no habrá otra forma sencilla de realizar ese mismo proceso?