Zaznaczanie całej linii tekstu kliknięciem w nią

Aby po kliknięciem myszy zaznaczyć całą linię tekstu w RichEdit1 należy utworzyć zdarzenie OnMouseDown dla RichEdit1:

Unit1.cpp

void __fastcall TForm1::RichEdit1MouseDown(TObject *Sender, TMouseButton Button,
                                           TShiftState Shift, int X, int Y)
{
   int Linia = RichEdit1->Perform(EM_LINEFROMCHAR, RichEdit1->SelStart, 0);
   RichEdit1->SelStart = RichEdit1->Perform(EM_LINEINDEX, Linia, 0);
   RichEdit1->SelLength = RichEdit1->Lines->Strings[Linia].Length();
}