void __fastcall TForm1::Button1Click(TObject *Sender)
{

RichEdit1->Lines->Text = "12345\nabcde";

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX,
2 - 1, 0) + 4;

SendMessage(RichEdit1->Handle, EM_SCROLLCARET, 0, 0);
RichEdit1->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{

RichEdit1->Lines->Text = "あいうえお\nかきくけこ";

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX,
2 - 1, 0) + 4;

SendMessage(RichEdit1->Handle, EM_SCROLLCARET, 0, 0);
RichEdit1->SetFocus();

}

Button1は二行目の「d」と「e」の間でカーソルが点滅しますが、
Button2は二行目の「き」と「く」の間でカーソルが点滅します。
共通コードで二行目の四文字目と五文字目の間でカーソルを
点滅させる事は出来ないのでしょうか？