for ( i = 3 ;i >= 1 ; i-- )
{
   temp = RichEdit1->Lines->Strings[i];
   if(i>=2)  //只處理二、三行
   {
       StringReplace(temp , "\r\n", " ", TReplaceFlags() << rfReplaceAll );
   } 
   RichEdit2->Lines->Strings[i] = temp;
}

AnsiString NewStr = "";
AnsiString temp;
int joinStart = 1;  // 寫成變數較具彈性，此例設定第二行 (含) 之後的資料予以合併
for (int i = 0 ;i <= 3 ; i  ) {
    temp = RichEdit1->Lines->Strings[i];           if (RichEdit2->Lines->Count < joinStart) {
        RichEdit2->Lines->Add("");  // 確保 RichEdit2 有相對於 RichEdit1 的行數
    }        if (i >= joinStart) {  // 除第一行之外，均合併至 NewStr
        if(NewStr.Length() > 0){  // 第一個字串之後，均加上空白來分隔
            NewStr = NewStr   " ";
        }
       NewStr = NewStr   temp;  // 合併資料行
    }else{
        RichEdit2->Lines->Strings[i] = temp;  // 不在合併範圍的資料行直接設給 RichEdit2
    }
}    RichEdit2->Lines->Strings[joinStart] = NewStr;  // 將合併資料設給 RichEdit2 的第 joinStart 行

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int iLine = 1;        //設定前iLine行不轉
 int iLineTmp = iLine;
 AnsiString sTemp;     RichEdit2->Text =  RichEdit1->Text;
 if(RichEdit2->Lines->Count <= iLine)
  return;
 while(iLineTmp > 0 && RichEdit2->Lines->Count) //先把前iLine行去掉
 {
  RichEdit2->Lines->Delete(0);
  iLineTmp -- ;
 }     //然後將剩下的字取出而且替換
 sTemp = RichEdit2->Text;
 sTemp = StringReplace(sTemp , "\r\n", " ", TReplaceFlags() << rfReplaceAll );     RichEdit2->Lines->Clear();
 iLineTmp = iLine;     //把前iLine行加回去
 for(int i=0; iLines->Count>i ; i  ) {
  RichEdit2->Lines->Add(RichEdit1->Lines->Strings[i] ) ;
 }
 //把轉換好的再加到最後
 RichEdit2->Lines->Add(sTemp);    }