Długość linii wskazanej kursorem

Aby na etykiecie Label1 wyświetlana była bieżąca długość tekstu w linii w RichEdit1 tworzymy zdarzenie OnSelectionChange dla komponentu RichEdit1:

Unit1.cpp

void __fastcall TForm1::RichEdit1SelectionChange(TObject *Sender)
{
   int Kolumna = SendMessage(RichEdit1->Handle, EM_LINEFROMCHAR, RichEdit1->SelStart, 0);
   int Linia = SendMessage(RichEdit1->Handle, EM_LINEINDEX, Kolumna, 0);
   int DlugoscLinii = SendMessage(RichEdit1->Handle, EM_LINELENGTH, Linia, 0);
   Label1->Caption = "Długość linii: " + IntToStr(DlugoscLinii);
}