AdvRichEditorHTMLIO Reading & Writing to a Blob

VCL TMS VCL UI Pack
1

Can you show me how to copy to and from a Blobfield from a AdvRichEditorHTMLIO. Below is my attempt to save the HTML to a blob field.

VAR BlobStream2 : TStream; AStream : TMemoryStream;

AStream := TMemoryStream.Create;
AdvRichEditorHTMLIO1.Save(AStream);
DataModule1.HTMLTable.Edit;
BlobStream2 := DataModule1.HTMLTable.CreateBlobStream(DataModule1.HTMLTableSMTP_Body, bmWrite);
AStream.Position := 0;
BlobStream2.CopyFrom(AStream,AStream.Size);
DataModule1.HTMLTable.Post;

2

At first sight I cannot see something wrong with this.
Is this a TEXT BLOB field?
Do you see the HTML text in this BLOB field and if not, what do you see ?