如何将Image中的图像导出到Excel中(30分)

如何将Image中的图像导出到Excel中？还有就是如何把Edit框里的值导到Excel中。

首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

1) 显示当前窗口：
ExcelApp.Visible := True;

2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';

3) 添加新工作簿：
ExcelApp.WorkBooks.Add;

4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );

5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' ].Activate;

6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';

Fangyizhi，谢谢你的指点。但是最重要的问题还是没有解决，就是如何将Image中的图像导出到Excel中？我很想听一下你的意见！！

怎么没有人回答啊。请问如何才可以将Image中的图像导出到Excel中？？？

//插入图象并设置位置与大小

FPicture:OleVariant;
TmpStr:String;
tmpstr:=uMain.Path+'image001.jpg';
FPicture:=FWorksheet.Pictures.Insert(tmpstr);
FPicture.Left:=60;
FPicture.Top:=10;
FPicture.width:=100;
FPicture.height:=100;
FPicture:=null;