Ler Blob do Firebird, diferente entre Delphi 2010 e superiores?

[Thiago Delalibera 1]

Boa tarde caros colegas, tenho um sistema rodando em vários clientes compilado no Delphi 2010, este sistema possui alguns textos salvos em campos BLOB SUB_TYPE 1 SEGMENT SIZE 1, estes textos foram salvos usando RichEdit.

Bom no Delphi 2010 quando quero carregar um texto do banco de dados em um RichEdit simplesmente faço: RichEdit1.Text := DM.minhaQueryNOMEDOCAMPO.Value;

O campo é carregado perfeitamente:

Porém ao compilar meu projeto em qualquer versão do Delphi superior a 2010 o texto retorna com caracteres estranhos, aparentemente codificação RTF:

{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Tahoma;}} ... e por ai vai..

Alguém conhece alguma soluçao pra isso? Já tentei carregar o texto de várias maneiras diferentes carregando antes para stream e nada. Obrigado!

[Eduardo Alcântara 6]

Tente dessa forma:

 

Para Colocar os Dados no Blob:

(DataSource.DataSet.FieldByName('TEXTO') as TBlobField).LoadFromFile(OpenPictureDialog1.FileName);

 

Para Ler os Dados do Blob:

Memo1.Lines.LoadFromStream((DataSource.DataSet.FieldByName('TEXTO') as TBlobStream));