Zmiana czcionki

Aby po kliknięciu przycisku Button1 zmieniona została czcionka:

całego dokumentu:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->Font->Name = "Arial";
}

zaznaczonego tekstu:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->SelAttributes->Name = "Arial";
}