한글이 들어가 있는 RichEdit1의 내용을 아래의 함수로 저장하면 한글이 깨서져 출력이 됩니다.
방법좀 알려주세요.

문장은 "새로운"이 깨진 모습입니다.
\'bb\'f5\'b7\'ce\'bf\'ee


void __fastcall TForm1::Button1Click(TObject *Sender)
{
  try {
    if (SaveDialog1->Execute())
      RichEdit1->Lines->SaveToFile(SaveDialog1->FileName);
  }
  catch (...) {
    ShowMessage("Could not save file " +  SaveDialog1->FileName) ;
      return;
  }
}