Zmiana koloru czcionki

Aby po kliknięciu przycisku Button1 zmieniony został kolor czcionki:

w całym dokumencie:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->Font->Color = clBlue;
}

w zaznaczonym tekście:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->SelAttributes->Color = clBlue;
}