Delphi 插入Excel图片和值

procedure TForm1.Button1Click(Sender: TObject);
var
aSheet : Variant;
excel : OleVariant;
workBook : OleVariant;
workSheet : OleVariant;
picture : OleVariant;
workRange : OleVariant;
i:integer;
begin
begin
aSheet := CreateOleObject('Excel.Application');
aSheet.WorkBooks.Open('E:明成软件坤祥电镀新建文件夹123.xls');
aSheet.Cells[1,1].Value:='abc';
aSheet.Cells[1,2].Value:='efg';
workRange := asheet.Range[asheet.Cells.Item[6,1],asheet.Cells.item[6,1]]; //目标位置
picture := asheet.activeSheet.Pictures.Insert('E:明成软件坤祥电镀新建文件夹110120.jpg'); //插入图片
picture.left := workRange.left + 1; //左
picture.top := workRange.top + 1; //高
picture.width := workRange.width - 2; //宽度
picture.height := workRange.height - 2; //高度
picture := Unassigned;
aSheet.Quit;
end;
end;