Диаграмма Excel через Delphi

[kta87]

Заполняю ячейки Excel из StringGrid

for Col:= 0 to StringGrid.ColCount -1 do
 for Row:= 0 to StringGrid.RowCount -1 do
 Sheet.Cells[Row + 1, Col +1]:= StringGrid.Cells[Col, Row + 1];

Затем добавляю диаграмму на этот же Sheet в Excel

MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Add(100, 5, 300, 200);

Получаю данные диаграммы

DataRange:= MyExcel.ActiveWorkBook.ActiveSheet.UsedRange;

DataRange: OleVariant;
Затем активирую (выделяю) построенную диаграмму и пытаюсь ввести в нее параметры

 Chart:= MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count];
 Chart.Chart.ChartWizard(DataRange, 4, EmptyParam);

Но программа останавливается с ошибкой "Член группы не найден" на строке

Chart:= MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count];

Помогите исправить эту ситуацию, и понять что и как...

[Аватар]

Диаграммы так не строил, но бросилось в глаза Count в ошибочной строке, уверен что должно быть Count-1

[kta87]

изменение сроки

Chart:= MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count];

на

Chart:= MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count-1];

ситуацию не поменяло!

П.С. По идее эта строка

Chart:= MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects[MyExcel.ActiveWorkBook.ActiveSheet.ChartObjects.Count];

выделяет последнюю созданную диаграмму, вот только параметр Count меня тоже смущает. Не как не могу понять в чем ошибка!?