Grabar richedit con formato en firebird

[chelard]

lo hice de la siguente manera para los que le pueda servir

Código Delphi [-]
 sPrincipal := TMemoryStream.Create;
 with dmDatos.qryModifica do begin

  redDiagnostico.Lines.SaveToStream(sPrincipal);
         sTemp:= getRTF(redDiagnostico);
        if(sModo = 'Insertar') then begin
            Close;
            SQL.Clear;
            SQL.Add('INSERT INTO atenciones (HISTORIA, DOCTOR, FECHA,');
            SQL.Add('PADECIMIENTO, EXPLORACION,TRATAMIENTO,');
            SQL.Add('LABORATORIO, PENDIENTES, RECETA,');
            SQL.Add('PRINCIPAL) VALUES(');

            SQL.Add(txtHistoria.Text + ',' + InttoStr(iDoctor) +',''' + FormatDateTime('mm/dd/yyyy',txtFecha.Date) + ''',');
            SQL.Add('''' + memPadecimiento.Text + ''',''' + memExploracion.Text + ''',''' + memTratamiento.Text + ''',');
            SQL.Add('''' + memLaboratorio.Text + ''',''' + memPendientes.Text + ''',''' + redReceta.Text + ''',');
            SQL.Add(':PRI )');
           

            ParamByName('PRI').LoadFromStream(sPrincipal,ftBlob);
           

            ExecSQL;         

end;

Donde redDiagnostico es mi richedit.
Tambien tengo el campo a utilizara para el RICHEDIT de tipo BLOB segment size 80 y subtype 1.