procedureTForm1.ReadOLE; var
BS: TBlobStream; begin
BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmRead); OLEContainer1.LoadFromStream(BS); BS.Free; end
;
procedureTForm1.WriteOLE; var
BS: TBlobStream; begin
BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmWrite); OLEContainer1.SaveToStream(BS); BS.Free; end
;