Odczytywanie liczby linii w RichEdit

Aby po kliknięciu przycisku Button1 na etykiecie Label1 wyświetlić liczbę linii tekstu z RichEdit1:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int IleLinii = 0;
   for (int i = 1; i <= RichEdit1->Text.Length(); i++)
   {
      if (RichEdit1->Text[i] == '\n')
      {
         IleLinii ++;
      }
   }
   Label1->Caption = "Liczba linii: " + IntToStr(++IleLinii);
}