Guuardar texto de Richedit a campo Blob

[roman]

No conozco la componente que mencionas pero en el caso del control estándar, la lectura o escritura del texto enriquecido debe pasar a través de un stream, y no directamente con la propiedad Text o Lines.Text.

Un ejemplo para guardar los datos:

Código Delphi [-]
var
  Contenido: TStringStream;

begin
  Contenido := TStringStream.Create('');

  try
    // Copiamos el contenido del rich edit a un stream
    edUso.Lines.SaveToStream(Contenido);

    // Pasamos el contenido al parámetro
    qDatos.ParamByName('uso').AsString := Contenido.DataString

    // Lanzamos la sentencia
    qDatos.ExecSQL;
  finally
    Contenido.Free;
  end;
end;

Para leer los datos sería el proceso inverso:

Código Delphi [-]
var
  Contenido: TStringStream;

begin
  // Creamos un stream con el valor del campo
  //
  // Aquí supongo que qDatos tiene la consulta SELECT
  // y que ya la hemos ejecutado
  Contenido := TStringStream.Create(qDatos.FieldByName('UsoTerapeutico').AsString);

  try
    // Copiamos el contenido del stream al rich edit
    edUso.Lines.LoadFromStream(Contenido);
  finally
    Contenido.Free;
  end;
end;

// Saludos