如何将Image中的图象赋给DBImage并存入库？急(30分)

这是我以前写的程序。

procedure TBase_GYSGL_xx_frm.miAddLicenClick(Sender: TObject);
begin
if cdsPaper.ReadOnly=True then Exit;
if OpenPicture.Execute then
begin
if not(cdsPaper.State in [dsInsert,dsEdit]) then cdsPaper.Edit;
if Sender=miAddLicen then
dbimgLicen.Picture.LoadFromFile(OpenPicture.filename);
if Sender=miAddLisen then
dbimgLisen.Picture.LoadFromFile(OpenPicture.filename);
IMGMON:=True;
end;
end;

OpenPicture是打开画片对话框；cdsPaper是一个数据集；
dbimgLisen和dbimgLicen是连接到cdsPaper上的两个DBImage;

注：改变图片后，不会改变Modified的属性值，要专门保存；
只能用BMP图片。

建立一永久字段table1image
if openpicturedialog1.execute then
Tblobfield(table1image).loadfromfile(openpicturedialog1.filename)
这只是对*.bmp的操作，*.jpg也可以，只是麻烦一些

首先感谢二位，可能是我问的不清楚，再说一遍：
有一个Image控件在UNIT3中，在UNIT2中有一个DBImage（这是一个MDI子窗体），现将UNIT3中Image的图象赋给UNIT2的DBImage中，并存入其对应的数据库中，如何操作？（BMP图象）

//unit2.pass

uses unit3;

tabel1bmp.assign(form3.image.picture.bmp);

多人接受答案了。