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.