如何在Access数据库里存取Jpeg图片　　　 (100分)

请问各位：
如何把Jpeg格式的图片存入到Access数据库的(OLE对象)字段里,希望能给详细的代码。谢谢!!!
procedure TForm1.Button1Click(Sender: TObject);
var
Picture1:TPicture;
begin
try
try
Picture1:=TPicture.Create ;
if OpenPictureDialog1.Execute then
begin
Picture1.LoadFromFile(OpenPictureDialog1.FileName);
Table1.Append ;
Table1.FieldByName('picture').Assign(picture1);
Table1.Post ;
Showmessage('成功');
end;
finally
Picture1.Free ;
end;
except
showmessage('失败');
end;
end;
我的代码是这样的，但不行请各位指教。错误提示（Projext Projext1.exe raised exception class EDBEngineError with message Invalid BLoB length)

var blobstream:tblobstream;
filestream:tfilestream;
begin
table1.insert;
blobstream:=table1.createblobstream(table1.fieldbyname('picture'),bmreadwrite);
filestream:=tfilestream.create('d:/picture.jpg',fmread);
blobstream.copyfrom(filestream,filestream.size);
table1.post;
end;

Table1.FieldByName('picture').Assign(picture1);改成
table.fieldbyname(fieldname).loadfromstream(tpicture);