[Deiv]

Encontré algo, ¿que opinan de lo siguiente? con 2 TImage lado a lado contenidos en un TPanel y un Button:

Código Delphi [-]
var  blendmap:TBitmap; {El sostén para la segunda imagen por mezlar}

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   Image1.Picture.LoadFromFile('D:\Imagen1.BMP');
   Image2.Picture.LoadFromFile('D:\Imagen2.BMP');
end;

procedure TForm1.Button1Click(Sender: TObject);
var  x,y: integer;
     c: TColor;
     r,g,b: byte;
     r1,g1,b1: byte;
     r2,g2,b2: byte;
     t: real;
begin
if not assigned(blendmap) then load14bBtnClick(sender)  //No hace falta
else  Image2.Picture.Bitmap.Assign(BlendMap);
  t:=1/2; 
  panel1.doublebuffered:=true;
  for x:=0 to Image1.Width-1 do
  begin
     for y:=0 to Image1.Height-1 do
     begin
       c := Image1.Canvas.Pixels[x,y];
       r1 := (c and $0000FF);
       g1 := (c and $00FF00) shr 8;
       b1 := (c and $FF0000) shr 16;
       c := Image2.Canvas.Pixels[x,y];
       r2 := (c and $0000FF);
       g2 := (c and $00FF00) shr 8;
       b2 := (c and $FF0000) shr 16;
       r := round( t*r1 + (1-t)*r2 );
       g := round( t*g1 + (1-t)*g2 );
       b := round( t*b1 + (1-t)*b2 );
       Image2.Canvas.Pixels[x,y] := r + g shl 8 + b shl 16
     end;
   end;
end;

Pero Yo deseo encarar esa transparencia solo en la parte que se Intersectan, tal vez debí plantear mi pregunta como SEMITRANSPARENCIA en la intersección: