procedure TForm1.LoadButtonClick(Sender: TObject);
begin
 if not OpenDialog1.Execute then exit;
 OleContainer1.CreateObjectFromFile(Opendialog1.FileName,false);
end;

procedure TForm1.toBaseButtonClick(Sender: TObject);
var
 bs:TBLOBStream;
begin
 with Table1 do
 begin
  if not active then open;
  append; {insert, edit}
  bs:=TBLOBStream.Create(Table1Inf,bmReadWrite);
  OleContainer1.SaveToStream(bs);
  post;
 end;
 bs.Free;
end;

procedure TForm1.fromButtonClick(Sender: TObject);
var
 bs:TBLOBStream;
begin
 with  Table1 do
 begin
  if not active then open;
  bs:=TBLOBStream.Create(Table1Inf,bmRead);
  OleContainer1.LoadFromStream(bs);
 end;
 bs.Free;
end;