怎么将Timage控件中的图像储存到Access数据中去

如何将Timage控件中的图像储存到Access数据中去？
如何将Timage控件中的图像储存到Access数据中去？

[解决办法]
var
msStream:TMemoryStream;
begin
msStream := TMemoryStream.Create;
msStream.Position := 0;
Image1.Picture.Bitmap.SaveToStream(msStream);
self.ADODataSet1.Append;
(AdoDataSet1.FieldByName( 'CImage ') as TBlobField).LoadFromStream(msStream);
AdoDataSet1.Post;
msStream.free;

end;