Добавление картинки в Excel

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant
app,       //Переменные App-Application
bks,       //bks-книга
bk,        //bk-книга
shts,      //Shts-листы
sht,       //Sht-лист
cll;       //Cll-ячейка
 app=CreateOleObject("Excel.Application");  // Создаем Excel Application
 app.OlePropertySet("Visible", true); //Делаем нашу книгу видимой
 bks=app.OlePropertyGet("Workbooks"); //Набор рабочих книг Excel
 app.OlePropertySet("SheetsInNewWorkbook", 1); //Количество листов в книге. В данном слачае 1
 bks.OleProcedure("Add"); //процедура добавления
 bk=bks.OlePropertyGet("Item",1); //Текущая книга
 shts=bk.OlePropertyGet("Worksheets"); //Набор страниц книги Excel
// Первый лист
sht=shts.OlePropertyGet("Item", 1); //Лист 1
sht.OlePropertySet("Name", WideString(" Лист")); //Имя у него "Первый Лист"
// Второй лист       (вдруг понадобится)
//sht=Shts.OlePropertyGet("Item", 2);
//sht.OlePropertySet("Name", WideString(" Листок"));
sht=shts.OlePropertyGet("Item",1); //В какую страницу нам вставить значение
cll=sht.OlePropertyGet("Cells").OlePropertyGet("Item", 1,1); //В какую ячейку
cll.OlePropertySet("Value", WideString("текст")); //Наше значение. В данном случае "Наш текст"
app.OlePropertySet("DisplayAlerts", false); //Не спрашивать призамене файла
app.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs", WideString("./test.xlsx") ) ;  // save
 
 cll.OlePropertyGet("Item", 2,2).OlePropertyGet("InsertPictur",".\test.jpg", false, true); 
 
 app.Exec(Procedure("Quit"));  //close
 
 
 
 
}

cll.OlePropertyGet("Item", 2,2).OlePropertyGet("InsertPicture","C:\\test.jpg", false, true);