Работа с OLE - сервером Excel

[Multiman]

Здравствуйте!

Никак не могу понять почему возникает ошибка "Неверный тип переменной"

void __fastcall TCoordinates::N2Click(TObject *Sender)
{
	Variant  vVarApp, vVarBooks, vVarBook, vVarSheets, vVarSheet, vVarCells, vVarCell;

	vVarApp=CreateOleObject("Excel.Application");
	vVarApp.OlePropertySet("Visible",true);
	vVarBooks=vVarApp.OlePropertyGet("Workbooks");
	vVarApp.OlePropertySet("SheetsInNewWorkbook",1);
	vVarBooks.OleProcedure("Add");
	vVarBook=vVarBooks.OlePropertyGet("Item",1);
	vVarSheets=vVarBook.OlePropertyGet("Worksheets");
	vVarSheet=vVarSheets.OlePropertyGet("Item",1);
	vVarSheet.OleProcedure("Activate");

	vVarCell=vVarSheet.OlePropertyGet("Range","A1:Q1");
	vVarCell.OleProcedure("Merge");
	vVarCell.OlePropertySet("HorizontalAlignment",-4108);
	vVarCell.OlePropertyGet("Font").OlePropertySet("Size",16);
	vVarCell.OlePropertyGet("Font").OlePropertySet("Name","Arial");
	vVarCell.OlePropertySet("Value","Ведомость");  

	for (int r = 0; r < StringGrid1->RowCount; r++)
		for (int c = 0; c < StringGrid1->ColCount; c++)
        {
            Variant cell = vVarSheet.OlePropertyGet("Cells", r + 3, c + 1);
			cell.OlePropertySet("Value", WideString(StringGrid1->Cells[c][r]));

		}

Экспорт из стрингрида работает нормально, но вот когда хочу в диапазон ячеек написать слово "Ведомость" появляется ошибка. Что я не так делаю? Подскажите пожалуйста.