急急！！请问如何把timage中的图像导到excel中？(200分)

给位大虾，帮帮忙
文字的导入导出我都做好了，就是碰到图像没有办法。

up

Var
PStream:TStream;
MyFormat : Word;
AData : THandle;
APalette:HPALETTE;
aSheet: variant;
begin
aSheet := ExcelApplication1.Worksheets.Item[1];
PStream := Query1.CreateBlobStream(Query1D_Pict,bmRead);
Image1.Picture.Graphic.LoadFromStream(PStream);
Image1.Picture.Graphic.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
aSheet.Paste;

谢谢