Como gravar e recuperar um texto formatado em uma tabela...?

Olá, tudo bem?

Eu consegui gravar o texto com os parágrafos, mas a formatação da fonte não grava de jeito nenhum.

Como faço para gravar a formatação da fonte do texto em um banco de
dados ?

O código fonte está logo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
close;
sql.text := ´insert into teste (texto) values (:1)´;
params[0].AsMemo := RichEdit1.Text;

// mas não grava o texto com a sua formatação de fonte


execSql;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.text := ´select * from teste where codigo = ´ + edit1.text;
open;

RichEdit1.text := Fields[1].AsString;

// recupera o texto, entretanto, a formatação da fonte do texto não foi
gravada.

end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.clear;
Edit1.setFocus;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
mudaTexto(RichEdit1);
end;

procedure TForm1.mudaTexto(objetoRichText: TCustomRichEdit);
begin
If FontDialog1.Execute Then
begin
Texto(objetoRichText).Size := FontDialog1.Font.Size;
Texto(objetoRichText).Style := FontDialog1.Font.Style;
Texto(objetoRichText).Color := FontDialog1.Font.Color;
Texto(objetoRichText).Name := FontDialog1.Font.Name;
end;
end;

function TForm1.Texto(objetoRichText: TCustomRichEdit): TTextAttributes;
var
Selecao :TTextAttributes;
begin
if objetoRichText.SelLength > 0 then
Selecao := objetoRichText.SelAttributes
else Selecao := objetoRichText.DefAttributes;
result := Selecao;
end;