Изменение цвета фона выделения в RichEdit

Richedit::CHARFORMAT2A  cf;
   cf.cbSize = sizeof(cf);
   cf.dwMask = CFM_BACKCOLOR | CFM_COLOR;
   cf.crBackColor = clBlue;
   cf.crTextColor =clRed;
   SendMessage( RichEdit1->Handle,  EM_SETCHARFORMAT, (WPARAM)SCF_SELECTION, (LPARAM)&cf);

::_CHARFORMAT2 cf;
cf.cbSize = sizeof(cf);
cf.dwMask = CFM_BACKCOLOR;
cf.crBackColor = (TColor)clBlue;
RichEdit1->Perform(EM_SETCHARFORMAT,SCF_SELECTION,
        reinterpret_cast<LPARAM>(&cf)); // LPARAM)&cf);

RichEdit->SelStart = 10;
RichEdit->SelLength = 100;

RichEdit1->SelStart = 10;
RichEdit1->SelLength = 100;
Richedit::CHARFORMAT2 cf;
cf.cbSize = sizeof(cf);
cf.dwMask = CFM_BACKCOLOR;
cf.crBackColor = (TColor)clBlue;
RichEdit1->SelStart = 10;
RichEdit1->SelLength = 100;
RichEdit1->Perform(EM_SETCHARFORMAT,SCF_SELECTION,
        reinterpret_cast<LPARAM>(&cf));

//---------------------------------------------------------------------------
void __fastcall TForm1::AddLine(TRichEdit *RichEdit1,const AnsiString &Text,
            int iSize,const AnsiString &Name,bool IsBold)
{
  //Add line to RichEdit
  ::_CHARFORMAT2 fmt;
  fmt.cbSize = sizeof(fmt);
  fmt.dwMask = CFM_BACKCOLOR;
  fmt.crBackColor = (TColor)clYellow;
  RichEdit1->SelStart = RichEdit1->Text.Length();
  RichEdit1->SelLength = 0; // Вставка строки с переходом на новую строку
  RichEdit1->SelAttributes->Name = Name;
  RichEdit1->SelAttributes->Size = iSize;
  TFontStyles Styles = RichEdit1->SelAttributes->Style;
  if(IsBold)Styles << fsBold;
  else Styles>>fsBold;
  RichEdit1->SelAttributes->Style = Styles;
  RichEdit1->Perform(EM_SETCHARFORMAT,SCF_SELECTION,
          reinterpret_cast<LPARAM>(&fmt)); // LPARAM)&fmt);
  RichEdit1->SelText = (Text + "\r\n");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Name = "Courier New";
  Edit1->Text = Name;
  AddLine(RichEdit1,Edit1->Text,10,Name,true);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ::CHARFORMAT2 cfm;
  if( ColorDialog1->Execute() )
  {
    cfm.cbSize = sizeof(cfm);
    cfm.dwMask = CFM_PROTECTED|CFM_BACKCOLOR;
    cfm.dwEffects = CFE_PROTECTED;
    cfm.crBackColor = ColorDialog1->Color;
    SendMessage( RichEdit1->Handle, EM_SETCHARFORMAT,
          (WPARAM)SCF_SELECTION, (LPARAM)&cfm);
  }
}