También pudieras probar algo como esto aunque en este caso no doy fe de que funcione:
Código Delphi
[-]
var
Tex : TStringStream;
begin
Tex:= TStringStream.Create(TuTabla.fieldByName('CampoMemo').AsString);
try
RichEdit1.Lines.LoadFromStream(Tex);
finally
Tex.free;
end
end;
En fin son varis las pruebas que puedes hacer hasta tanto no aparezca una idea mejor.
Saludos