안녕하세요!


void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
    int CurLine = SendMessage(RichEdit1->Handle, EM_LINEFROMCHAR, -1, 0);

    Edit1->Text = IntToStr(CurLine);
    AnsiString CurStr = RichEdit1->Lines->Strings[CurLine];

    if (!CurStr.IsEmpty())
    {
        if (RichEdit2->Lines->Count <= CurLine)
        {
            for (int i = RichEdit2->Lines->Count; i <= CurLine; i++)
                RichEdit2->Lines->Add("");
        }
        RichEdit2->Lines->Strings[CurLine] = "

" + CurStr + "

"";
    }
}

이렇게.해보시면.어떨까요?            

                                                    : oMega.