Kasowanie całej zawartości RichEdit

Aby po kliknięciu przycisku Button1 cała zawartość RichEdit została skasowana wywołujemy funckję Clear():

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->Clear();
}