TextureAlphaBlend example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Load both bitmaps, at 24 bits per pixel }
   LEADImage1.Load('E:\\IMAGE1.CMP', 24, ORDER_BGR, 1);
   LEADImage2.Load('E:\\IMAGE2.cmp', 24, ORDER_BGR, 1);

   { Load the fade mask bitmaps }
   LEADImage3.Load('E:\\IMAGE1.CMP', 24, ORDER_BGR, 1);
   LEADImage3.Invert( );
   { Combine BitmapSrc with BitmapDst, with fade mask bitmap and a 100 opacity}
   LEADImage1.TextureAlphaBlend( 0, 0, LEADImage1.BitmapWidth, LEADImage1.BitmapHeight, LEADImage2.Bitmap, 0, 0, LEADImage3.Bitmap, 100, 0, Nil );
end;