Konwersja pliku ASCII do pliku RTF

Na formularzu umieszczamy komponent RichEdit z zakładki Win32. Aby po kliknięciu przycisku Button1 dokonać konwersji pliku TXT do pliku RTF (Rich Text Format):

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   RichEdit1->PlainText = true;
   RichEdit1->Lines->LoadFromFile("plik.txt");
   RichEdit1->PlainText = false;
   RichEdit1->Lines->SaveToFile("plik.rtf");
}