求救！！！ ( 积分: 40 )

怎样才能image上显示的图片储存到ACCESS中，最好是用INSERT语句，其次怎样再把ACCESS
中的图片分别显示到TDBIMAGE和IMAGE中

procedure savepicture;
var
BS:TADOBlobStream;
begin
Query1.Edit;
BS:=TADOBlobStream.Create(TMemoField(Query1.fieldbyname('图片')),bmWrite);
Image1.Picture.Graphic.SaveToStream(BS);
BS.Free;
Query1.Post;
end;

procedure disppicture;
var MemStrm:TMemoryStream;
begin
with datam.DataM1,input_Form do
begin
MemStrm:=TMemoryStream.Create;
TBlobField(Query2.fieldbyname('PHOTO')).SaveToStream(MemStrm);
MemStrm.Position:=0;
Image1.Picture.Graphic.LoadFromStream(MemStrm);
MemStrm.free;
end;
end;