[ecfisa]

Hola José.

Empezado por Jose Roman

Código Delphi [-]
...
procedure TwMain.RichEditToBlob(DataSet: TDataSet; const aFieldName: string;
  RE: TRichEdit);
var
  Stream: TStream;
begin
  Stream := TMemoryStream.Create;
  try
    RE.Lines.SaveToStream(Stream);
    Stream.Position := 0;
    //DataSet.Edit;   
    TBlobField(DataSet.FieldByName(aFieldName)).LoadFromStream(Stream);
    //DataSet.Post;  
  finally
    Stream.Free;
  end;
end;

end.

No revisé todo el código, pero estoy viendo que anulas la edición y el guardado del campo en la función RichEditToBlob... y obviamente no se va a almacenar.

Saludos