Erro ao gravar RTF em campo Text com Postgre

Olá amigos

tenho uma aplicação que edita um texto com RichEdit, a digitação é normal, quando fecho o editor e vou para a tela de dados o DBRichedit aparece normal, o problema é quando fecho a aplicação, reinicio e vou para a tela de dadosnvamente, que recupera um campo da tabela do tipo text, na tela de dados o DBRichEdit não aparece com a formtação digitada. Quando estava usando o firebird funcionava normal.

segue a rotina:
Stream : TMemoryStream;
...

with tFmEditor.create(self) do
try
DM.QryTipoEscrituraTEXTO.SaveToStream(Stream);
Stream.Position := 0;
Text1.PlainText := false;
Text1.Lines.LoadFromStream(Stream);
NomeArquivo := trim(DM.QryTipoEscrituraDESCRICAO.Value);
Caption := ´Editor de Texto - ´ + NomeArquivo;
for i := 0 to DM.QryOutorgantes.FieldCount - 1 do begin
ComboBox3.Items.Add(DM.QryOutorgantes.Fields[i].DisplayName)
end;
ComboBox3.ItemIndex := 0;
for i := 0 to DM.QryOutorgados.FieldCount - 1 do begin
ComboBox4.Items.Add(DM.QryOutorgados.Fields[i].DisplayName)
end;
for i := 0 to DM.QryRepresentantes.FieldCount - 1 do begin
ComboBox5.Items.Add(DM.QryRepresentantes.Fields[i].DisplayName)
end;
ComboBox3.ItemIndex := 0;
ComboBox4.ItemIndex := 0;
ComboBox5.ItemIndex := 0;
showmodal;
Stream.Clear;
Text1.Lines.SaveToStream(Stream);
Stream.Position := 0;
finally free;
end;
DM.QryTipoEscritura.Edit;
DM.QryTipoEscrituraTEXTO.LoadFromStream(Stream);

OBS: uso o EMS PostgreSQL que tem opções de visaulização do campo text, Editar Blob (Hexadecimal, texto, Rich Edit, imagem e HTML) quando escolho richedit aparece normal.

Muito grato

Silvio Guedes.