Пытаюсь записать и отобразить форматированный текст в базу данных (поле txt тип «текстовый»
СУБД MsAccess или поле типа varchar в SQL Server) Для этого содержимое поля R типа RichEdit
Сохраняю в поток TmemoryStream и пытаюсь записать в БД/ (код ниже)
TMemoryStream * RData =new TMemoryStream();
R->Lines->SaveToStream(RData);
RData->Position = 0;
CMD->Parameters->Items[0]->LoadFromStream(RData,ftBlob);
CMD->Parameters->Items[1]->Value=DBE->Field->AsInteger;
CMD->CommandText ="UPDATE eug SET txt=:str WHERE N=:N";
CMD->Execute();
ADOQ->Close(); ADOQ->Open();
RData->Free(); R->Clear();

Проблема в том ,что в поле txt пишется «абракадабра» , которая отображается в бессмысленном виде элементом DBRichEdit связанным с этим полем.
В чем дело? Перепробовал опции ftBlob, ftFmtMemo, ftMemo но это не помогло