Как создать прозрачность

#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Graphics::TBitmap *bitmap=new Graphics::TBitmap;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//1-й график
void __fastcall TForm1::Button1Click(TObject *Sender)
{  int x=0,y,a;
 
a=StrToInt(Edit1->Text);
  bitmap->Canvas->Pen->Color = clRed;
 bitmap->Canvas->Pen->Width=2;
 //при первом вычислении(иначе график пойдет и направо)
  y=pow(x,4)+pow(x,2)+a;
  bitmap->Canvas->MoveTo(300+x,300-y);
 
 for(x=0;x<30;x++)
 {  y=pow(x,4)+pow(x,2)+a;
   bitmap->Canvas->LineTo(300+x,300-y);}
Canvas->Draw(0,0,bitmap); //Вывели на канву формы в точке (0,0)
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
bitmap->LoadFromFile("1.bmp"); //Загрузили изображение
Canvas->Draw(0,0,bitmap); //Вывели на канву формы в точке (0,0)
}
//---------------------------------------------------------------------------
//2-й график
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int xx=1,yy,aa=5;
 
 bitmap->Canvas->Pen->Color = clBlue;
 bitmap->Canvas->Pen->Width=2;
 //при первом вычислении(иначе график пойдет и направо)
  yy=cos(pow(xx,2)+aa*xx)/sin(pow(xx,2)+aa*xx);
  bitmap->Canvas->MoveTo(300+xx,300-yy);
 
 for(xx=1;xx<30;xx++)
 {  yy=cos(pow(xx,2)+aa*xx)/sin(pow(xx,2)+aa*xx);
   bitmap->Canvas->LineTo(300+xx,300-yy);}
Canvas->Draw(0,0,bitmap); //Вывели на канву формы в точке (0,0)
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 bitmap->Transparent=true; //Включаем прозрачность
 bitmap->TransparentColor=clWhite; //Устанавливаем цвет прозрачности (белый)
 Canvas->Draw(0,0,bitmap);}

void __fastcall TForm1::Button5Click(TObject *Sender)