Сделать бэк-граунд поля Memo прозрачным

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
// Memo
  LONG exStyle = ::GetWindowLong(Memo1->Handle, GWL_EXSTYLE);
  exStyle |= WS_EX_TRANSPARENT;
  ::SetWindowLong(Memo1->Handle, GWL_EXSTYLE, exStyle);
  Memo1->Brush->Style = bsClear;
  Memo1->ReadOnly = true;
  Memo1->Text = "Прозрачный фон Memo1";
  Memo2->Text = "Непрозрачный фон Memo2";
// RichEdit
  LONG exStyle2 = ::GetWindowLong(RichEdit1->Handle, GWL_EXSTYLE);
  exStyle2 |= WS_EX_TRANSPARENT;
  ::SetWindowLong(RichEdit1->Handle, GWL_EXSTYLE, exStyle2);
  RichEdit1->Brush->Style = bsClear;
  RichEdit1->Font->Style = RichEdit1->Font->Style<<fsBold;
  RichEdit1->Font->Color = clYellow;
  RichEdit1->Text = "Прозрачный RichEdit1";
  RichEdit1->ReadOnly = true;
  RichEdit2->Text = "Непрозрачный RichEdit2";
}

 for (int i=0; i<5; i++) 
  {
   AnsRB[i] = new TRichEdit(Form1); 
   AnsRB[i]->Parent = Form1;
   LONG exStyle = ::GetWindowLong(AnsRB[i]->Handle, GWL_EXSTYLE);
   exStyle |= WS_EX_TRANSPARENT;
   ::SetWindowLong(AnsRB[i]->Handle, GWL_EXSTYLE, exStyle);
   AnsRB[i]->ReadOnly = true;
   AnsRB[i]->Top = Image1->Top + 346+50*i;
   AnsRB[i]->Left = Image1->Left + 90;
   AnsRB[i]->WordWrap = true;
   AnsRB[i]->Width = 600;
   AnsRB[i]->Height = 70;
   AnsRB[i]->Font->Name = "Tahoma";
   AnsRB[i]->Font->Size = 13;
   AnsRB[i]->Font->Color = TColor(0x0074743A);
   AnsRB[i]->Tag = i;
   AnsRB[i]->OnMouseDown = AnsRBClick;
  }

   AnsRB[i]->ReadOnly = true;
   AnsRB[i]->Top = Image1->Top + 346+50*i;
   AnsRB[i]->Left = Image1->Left + 90;
   AnsRB[i]->WordWrap = true;
   AnsRB[i]->Width = 600;
   AnsRB[i]->Height = 70;
   AnsRB[i]->Font->Name = "Tahoma";
   AnsRB[i]->Font->Size = 13;
   AnsRB[i]->Font->Color = TColor(0x0074743A);
   AnsRB[i]->Tag = i;
   AnsRB[i]->OnMouseDown = AnsRBClick;

  // .........
  Memo1->Color = clNone;
  Memo1->BorderStyle = bsNone;

  // .........
  Memo1->Font->Color = clRed;  // или там clWhite.