Zmiana wartości lewego i prawego marginesu

Aby po kliknięciu przycisku Button1 zmienić wartość lewego i prawego marginesu w RichEdit1:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TRect R;
   int LeftMargin = 20;
   int RightMargin = 10;
   R = RichEdit1->ClientRect;
   R.Left = R.Left + LeftMargin;
   R.Top = R.Top + 2;
   R.Bottom = R.Bottom - 2;
   R.Right = R.Right - RightMargin;
   SendMessage(RichEdit1->Handle, EM_SETRECT, 0, Longint(&R));
}