保存txt文件出现乱码有关问题

保存txt文件出现乱码问题？
我用bcb打开txt文件，保存之后用记事本打开就出现乱码，但在bcb中再打开仍然可以正常显示，这是怎么回事啊?
主要代码如下：

//---------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  RichEdit1 -> Clear();
  FileName = "untitled.txt" ;
}
//---------------------------------------
void __fastcall TForm1::FileNewExecute(TObject *Sender)
{
  RichEdit1 -> Clear();

  FileName = "untitled.txt";
}
//-----------------------------------------
void __fastcall TForm1::FileOpen1Accept(TObject *Sender)
{
  RichEdit1 -> Lines -> LoadFromFile(FileOpen1 -> Dialog -> FileName);
  FileName = FileOpen1 -> Dialog -> FileName;
}
//-----------------------------------------
//---------------------------------------

void __fastcall TForm1::FileSaveExecute(TObject *Sender)
{
  if (FileName == "untitled.txt")

  FileSaveAs1->Execute();
  else
RichEdit1->Lines->SaveToFile(FileName);
}
//---------------------------------------

void __fastcall TForm1::FileSaveAs1BeforeExecute(TObject *Sender)
{
  FileSaveAs1 -> Dialog -> InitialDir = ExtractFilePath(FileName);
}

void __fastcall TForm1::FileSaveAs1Accept(TObject *Sender)
{
  FileName = FileSaveAs1 -> Dialog -> FileName;
  RichEdit1 -> Lines -> SaveToFile(FileName);
}
//---------------------------------------

------解决方案--------------------
这是将RichEdit中的内容作为富文本导出了。导出以前设置一下纯文本：

C/C++ code

RichEdit1->PlainText = true;
RichEdit1->Lines->SaveToFile(FileName);