Przewijanie RichEdit na sam dół

Aby podczas dodawiania kolejnych linijek RichEdit przesuwał się na sam dół pokazując tą ostatnio dodaną linię:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   for (int i = 0; i <= 100; i++)
   {
      RichEdit1->Lines->Add("Iteracja nr: " + IntToStr(i));
      RichEdit1->Perform(EM_SCROLLCARET, 0, 0);
   }
}