кнопки

BLENDFUNCTION bf; // структура
bf.BlendOp = AC_SRC_OVER;
bf.BlendFlags = 0;
bf.SourceConstantAlpha = 100; //величина прозрачности (0-255)
bf.AlphaFormat = 0;
::AlphaBlend(Image1->Canvas->Handle, 0, 0,
             Image1->ClientWidth,
             Image1->ClientHeight,
             bmp->Canvas->Handle, 0, 0,
             bmp->Width,
             bmp->Height, bf);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Picture->LoadFromFile("1.bmp");
  Image2->Picture->LoadFromFile("2.bmp");
 
  BLENDFUNCTION bf = {AC_SRC_OVER,0,128,0}; // структура
  ::AlphaBlend(Image1->Canvas->Handle,0,0,1000,1000,
               Image2->Canvas->Handle,200,200,50,50,
               bf);
/*
  BOOL AlphaBlend (HDC hdcDest,
                   int iLeftDest,
                   int iTopDest,
                   int iWidthDest,
                   int iHeightDest,
                   HDC hdcSource,
                   int iLeftSource,
                   int iTopSource,
                   int iWidthSource,
                   int iHeightSource,
                   BLENDFUNCTION alphaBlend);
*/
  Image2->Hide();
  Image1->Repaint();
}