var
　Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OpenBtnClick(Sender: TObject);
begin
　　Table1.Open; //打开数据库
end;

procedure TForm1.CloseBtnClick(Sender: TObject);
begin
　　Table1.Close; //关闭数据库
end;

//打开一个数据文件、创建OLE对象、将对象数据存入数据库
procedure TForm1.LoadBtnClick(Sender: TObject);
var
fn: string;
begin
　if OpenDialog1.Execute then begin //打开文件
　　fn := ExtractFileName(OpenDialog1.FileName);
　　Table1FileName.AsString := fn;
　　OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False); //创建OLE对象
　　OleContainer1.SaveToFile("tmp"); //将OLE数据存入临时文件
　　Table1ABlob.LoadFromFile("tmp"); //将OLE数据存入数据库
　end;
end;

//定义此方法用于显示当前记录中的OLE对象
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
　if not Table1ABlob.IsNull then begin
　　Table1ABlob.SaveToFile("tmp"); //数据存入临时文件
　　OleContainer1.LoadFromFile("tmp"); //从临时文件中读取OLE对象
　end;
end;

end.

该程序在Delphi 5.0下编译通过。