procedure TForm1.ReadOLE;
var
 BS: TBlobStream;
begin
 BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmRead);
 OLEContainer1.LoadFromStream(BS);
 BS.Free;
end;

procedure TForm1.WriteOLE;
var
 BS: TBlobStream;
begin
 BS := TBlobStream.Create(Table1BLOBFIELD_BLOB, bmWrite);
 OLEContainer1.SaveToStream(BS);
 BS.Free;
end;