Dynamiczne tworzenie RichEdit

Aby dynamicznie utworzyć na formie RichEdit i poustawiać kilka z jego właściwości:

Unit1.cpp

#include <comctrls.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TRichEdit *RichEdit1 = new TRichEdit(this);
   RichEdit1->Parent = this;
   RichEdit1->Left = 50;
   RichEdit1->Top = 30;
   RichEdit1->Width = 100;
   RichEdit1->Height = 40;   
}

Należy jeszcze pamiętać o zwolnieniu pamięci zajmowanej przez utworzony dynamicznie RichEdit przed zakończeniem programu.