Чтение OLE из BLOB-поля Paradox

Предлагаемое решение:

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBlobStream;
begin
  try
    b := TBlobStream.Create((Table1.FieldByName('OLE') as TBlobField), bmRead);
    OLEContainer1.LoadFromStream(b);
  finally
    b.free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  b: TBlobStream;
begin
  try
    Table1.Insert;
    b := TBlobstream.Create((Table1.FieldByName('OLE') as TBlobField),
                             bmReadWrite);
    OLEContainer1.SaveToStream(b);
    Table1.Post;
  finally
    b.free;
  end;
end;