Kasowanie całej zawartości RichEdit
Aby po kliknięciu przycisku Button1 cała zawartość RichEdit została skasowana wywołujemy funckję Clear():
void __fastcall TForm1::Button1Click(TObject *Sender) { RichEdit1->Clear(); }