Найти и заменить текст в шаблоне rtf

[Oleg0405]

Есть шаблон в формате RTF
нужно заменить в нем текст "data" на "31 октября"
через RichEdit заменяется но пропадает форматирование текста и таблицы

RichEdit1->Lines->LoadFromFile("./шаблон.rtf");
AnsiString SearchString = "дата";
AnsiString ReplaceString = "31 октября";
RichEdit1-> Lines-> Text= StringReplace (RichEdit1->Text, SearchString, ReplaceString, TReplaceFlags() << rfReplaceAll << rfIgnoreCase);

может быть я что-то напутал - поправте меня пожалуйста

[Oleg0405]

изменить можно в буфере

TStringList *sList = new TStringList;
if (OpenDialog1->Execute()) { sList->LoadFromFile(OpenDialog1->FileName);}
sList->Text=StringReplace( sList->Text, "data", "31.07", TReplaceFlags() << rfReplaceAll << rfIgnoreCase);
RichEdit1->Text=sList->Text;

только проблема с кодировкой , русские слова не меняет
подскажите как установить кодировку