FeatherAlphaBlend example for Delphi

  LEADImage2.CreateBitmap (800, 600, 24);
   LEADImage2.SetRgnRoundRect (50, 50, 500, 500, 150, 150, L_RGN_SET);
   LEADImage3.CreateFadedMask (LEADImage2.Bitmap, 60, 20, 3, 0, FADE_DUMPFILL + FADE_NOTRANSPARENCY, 255, RGB (0, 0, 255));
   LEADImage2.Load ('v:\images\image2.cmp', 0, 1, 1);
   LEADImage1.FeatherAlphaBlend (0, 0, LEADImage3.BitmapWidth, LEADImage3.BitmapHeight, LEADImage2.Bitmap, 0, 0, LEADImage3.Bitmap);