Заполнение компонента Мемо1

memo->Lines->Delimiter = '\n';
memo->Lines->DelimitedText = "первая\nвторая\nи третья строки";

RichEdit1->Lines->Add("Первая строка");
RichEdit1->Lines->Add("Вторая строка");

     for (int i=0;i<Memo1->Lines->Count;i++)
       Memo1->Lines->Strings[i]=Memo1->Lines->Strings[i].SubString(1,6)+";" ;

void add_and_select_text( TRichEdit *re, String text ) {
    static int last_lenght = 0, lenght = 0;
 
    re->Lines->Add( text );
    last_lenght = lenght;
    lenght = re->SelStart;
    re->SelStart = last_lenght;
    re->SelLength = lenght - last_lenght;
}
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1( TComponent *Owner )
               : TForm( Owner ) {
    add_and_select_text( redit1, "первая\r\nвторая\r\n" );
    redit1->SelAttributes->Size = 10;
    redit1->SelAttributes->Color = clAqua;
 
    add_and_select_text( redit1, "четвертая\r\nи пятая строки..." );
    redit1->SelAttributes->Size = 18;
    redit1->SelAttributes->Color = clGreen;
 
    add_and_select_text( redit1, "\r\n\r\nи восьмая жирным" );
    redit1->SelAttributes->Size = 12;
    redit1->SelAttributes->Color = clDefault;
    redit1->SelAttributes->Style = redit1->SelAttributes->Style << fsBold;
 
    redit1->SelStart = 0;
}