Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как сохранить RTF в TBlobField?

01.01.2007

В этом примере поле 'Table1Memo' это paradox 'formatted memo'. Оно так же может быть полем blob.

Через TBlobStream содержимое контрола RichEdit можно загружать или сохранять в базу данных:

procedure TForm1.BtnGetClick(Sender: TObject); 
var
  bs
: TBlobStream;
begin
  bs
:= Nil;
 
with Table1 Do
   
try
      open
;
      first
;
      bs
:= TBlobStream.Create( table1memo, bmread );
      Richedit1
.plaintext := false;
      Richedit1
.Lines.Loadfromstream(bs);
   
finally
      bs
.free;
      close
;
   
end;
end;
 
procedure TForm1
.BtnPutClick(Sender: TObject);
var
  bs
: TBlobStream;
begin
  bs
:= Nil;
 
with Table1 Do
   
try
      open
;
      first
;
      edit
;
      bs
:= TBlobStream.Create( table1memo, bmwrite );
      Richedit1
.plaintext := false;
      Richedit1
.Lines.Savetostream(bs);
      post
;
   
finally
      bs
.free;
      close
;
   
end;
end;

Взято из https://forum.sources.ru