Плавная смена изображений ala Win7 (alpha канал)

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
Graphics::TBitmap*G;
int i = 0;
 
void MyDraw(void){
 
    HDC hdcsrc= G->Canvas->Handle;
    HDC hdcdest = Form1->Canvas->Handle;
                  //Form1->Image1->Picture->Bitmap->Canvas->Handle;
 
    BLENDFUNCTION bF;
    bF.BlendOp = AC_SRC_OVER;
    bF.BlendFlags = 0;
    bF.SourceConstantAlpha = i;
    bF.AlphaFormat = AC_SRC_ALPHA;
    i++;
    ::AlphaBlend(hdcdest,0,0,1024,768, hdcsrc,0,0,1024,768,bF);
}
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Timer1->Enabled = true;
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    G = new Graphics::TBitmap;
    G->LoadFromFile("F:\\screen.bmp");
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    if (i < 255) {
        MyDraw();
    }else Timer1->Enabled = false;
}

HDC hdcdest = Form1->Canvas->Handle;

HDC hdcdest = Form1->Image1->Picture->Bitmap->Canvas->Handle;

HDC hdcdest = Form1->Image1->Picture->Bitmap->Canvas->Handle;

HDC hdcdest = Form1->Image1->Canvas->Handle;