Авто перенос курсора в Richedit при достижении длины строки определенного числа символов.

// 1.
if (Key == VK_RETURN) {...}
// 2.
if (RichEdit1->Lines->Strings[i].Length()) == 18) {...}

// например, в RichEditOnKeyUp
for (int i=0; i<RichEdit1->Lines->Count; i++) {
  if (RichEdit1->Lines->Strings[i].Length() == 18) {
    Key == VK_RETURN;   
  }
}

void __fastcall TForm1::FormKeyPress(TObject *Sender, wchar_t &Key)
{
// в инспекторе указать для формы Form1->KeyPreview = true;
  for (int i=0; i<=RichEdit1->Lines->Count-1; i++) {
    if (i == (int)RichEdit1->CaretPos.y) {
      if (RichEdit1->Lines->Strings[i].Length() == 18) {
        RichEdit1->Lines->Strings[i] = RichEdit1->Lines->Strings[i]+"\n";
      }
    }
  }
}

if (RichEdit1->Lines->Strings[i].Length() == 18)

SetFocus()

void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if (Key==VK_RETURN)
  {
   Edit2->SetFocus();
  }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if (Key==VK_RETURN)
  {
   Button1->SetFocus();
  }
}