Ошибка вывода диаграммы в Excel

[Ky3Heu,]

Доброго времени суток, друзья. У меня вот какая проблема: создаю диаграмму в Excel, пишу заголовки и т.д. Все нормально проглатывает, кроме момента, когда я указываю диапазон данных. Вот тут сразу вылетает ошибка "Член группы не найден". Без команды на данные все работает, диаграмма рисуется, но естественно без данных. Офис 2007.
Код Delphi

var
 Diagram          :_Chart;
 xSheet           :_Worksheet;
 
//вот так создаю диаграмму
Diagram := (xSheet.ChartObjects(EmptyParam, GetUserDefaultLCID)
        as ChartObjects).Add(
        xSheet.Range['B11', EmptyParam].Left,
        xSheet.Range['B11', EmptyParam].Top,
        xSheet.Range['M11', EmptyParam].Left,
        xSheet.Range['B'+IntToStr(x), EmptyParam].Top).Chart as _Chart;
 
Diagram := Diagram.Location(xlLocationAsObject,'Диаграммы');
 
diagram.ChartType := xlColumnClustered;
 
Diagram.HasTitle[GetUserDefaultLCID] := true;
 
Diagram.ChartTitle[1].Text := 'Заголовок';
 
Diagram.ChartTitle[1].Font.Size := 14;
 
           // xlValue Для оси Y
(Diagram.Axes(xlCategory, xlPrimary, GetUserDefaultLCID) as Axis).HasTitle
                                                                      := True;
 
(diagram.Axes(xlCategory, xlPrimary, GetUserDefaultLCID) as Axis).AxisTitle.
                            Characters[EmptyParam, EmptyParam].Text := 'Месяц';
 
(diagram.Axes(xlCategory, xlPrimary, GetUserDefaultLCID) as Axis).
                                        AxisTitle.Orientation := xlHorizontal;
 
(diagram.Axes(xlCategory, xlPrimary, GetUserDefaultLCID) as Axis).
                                                    AxisTitle.Font.Size := 14;
 
(xl.Worksheets.Item['Лист сбора данных'] as _WorkSheet).Activate(GetUserDefaultLCID);
 
xSheet := xl.Worksheets.Item['Лист сбора данных' ] as _Worksheet;
 
//цикл вывода информации в лист
...
...
//вгоняю данные в диаграмму
 
   with (Diagram.SeriesCollection(EmptyParam, GetUserDefaultLCID)
                                              as SeriesCollection).NewSeries do
    begin
      Name := 'Имя';
      Hasdatalabels := true;
      //вот на Values и ругается.
      Values := (xl.Worksheets.Item['Лист сбора данных'] as _WorkSheet).
      Range['D' + intToStr(nachdiap) + ':O' + intToStr(nachdiap), EmptyParam];
      ApplyDataLabels(xlDataLabelsShowLabel,0,1,1,1,0,0,0,0,0);
    end;

Пробовал несколько разных вариантов с диапазоном. Во всех опробованных случаях ошибка одна и та же.