怎样把数据库中存取的图片拷贝到剪贴板,然后把图片利用image显示出来?

哎，放假了，上网也不方便。。。。
因为我用于显示图片的窗体，image（不是dbimage)等都是利用代码动态创建的

var a:TjpegImage;
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;

begin
a:=TjpegImage.Create ;
a.loadfromfile(''e:\aa.jpg'');
a.SaveToClipboardFormat(MyFormat,AData,APalette);
Clipboard.SetAsHandle(MyFormat,AData);
image1.Picture.Assign(Clipboard);
a.free;
end;