Odczyt liczby linii tekstu w RichEdit

Aby po kliknięciu przycisku Button1 na etykiecie Label1 została wyświetlona liczba linii tekstu w RichEdit odczytujemy właściwość Count:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = RichEdit1->Lines->Count;
}