Atualmente, estou no processo de migração de nossa solução de software do Delphi 7 para 2010. A maioria das mudanças foi simples e há apenas uma pequena quantidade de obstáculos a serem resolvidos.

Em um formulário, usamos um TRichEdit que exibia texto rtf capturado em um campo de blob em um banco de dados MSSQL. Foi assim que funcionou no Delphi 7:

//Get RTF text from Blob field using TADOQuery
rtfStream := sql.CreateBlobStream(sql.FieldByName('rtftext'), BmRead) as TMemoryStream;

//Load into TRichEdit
RichEdit.PlainText := False;
RichEdit.Lines.LoadFromStream(rtfStream);

Isso exibirá o RTF conforme o esperado no componente TRichEdit, mas o mesmo código no Delphi 2010 exibe o RTF como texto sem formatação com guias entre cada caractere. Suponho que isso tenha muito a ver com a mudança do Ansi para o Unicode, mas não tive sorte em corrigir o problema.

Qualquer ajuda para que isso funcione seria muito apreciada. obrigado