如何将图片传送到Excel？(100分)

我是将Delpi中的数据传送到Excel来做报表的，请问如何把数据库中的图片传达Excel？

笨方法：先将图片存成文件或剪贴版，然后在excel中插入图片。

WorkSheet.Pictures.Insert('C:/mypicture/001.bmp');

procedure TForm1.InsertPicClick(Sender: TObject);
var
aSheet: variant;
MyFormat : Word;
AData : THandle;
APalette:HPALETTE;
begin
aSheet := ExcelApplication1.Worksheets.Item[1];
//以文件插入
aSheet.Pictures.Insert('6.bmp');
//将Image1的图像插入
Image1.picture.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
aSheet.Paste;
end;

多人接受答案了。