Доброго времени суток!

Проблема: При рисовании BITMAP на "стекло" транспарентные области выводятся черным цветом. Пробовал AlphaBlend, вообще ничего не выводит. BITMAP 32bit, альфа-канал присутствует. MSDN читал. Если можно, дайте простой исходник OnPaint, делающий сие. Заранее спасибо.

Скрин проблемы:
https://yadi.sk/i/GDJUzKFmeymoQ

То, что есть сейчас:

   with BMP^ do begin
     pb:=BeginBufferedPaint(DC,R,BPBF_COMPOSITED,@pp,nDC);
     if pb=0 then DoPaint(Sender,DC) else begin
       BufferedPaintClear(pb,@R);
       
       // сюда рисовать
       // DrawBMP(nDC);

       BufferedPaintSetAlpha(pb,@R,255);
       EndBufferedPaint(pb,true);
     end;{}
     Free;
   end;