ADO и Excel, несколько практических вопросов:)

[funball]

Уважаемые знатоки
Решил все-таки писать как "позднее связывание", потому что разобраться в кодах "раннее связывание", не могу, общих знаний Delphi пока нет, а в книгах только раннее...
До конца проекта осталось немного:
- в диаграмму, которая создается добавить значения одной колонки данных, скажем диапозона ['D5:D581'] с листа, который заполняется данными(код в начале темы).
никак не могу подобрать правильный код:

XL.Workbooks[1].WorkSheets[1].Name:='Статистические данные';
...
chart_:=XL.charts.add;
chart_.chartType:=1;
chart_.ChartTitle.Characters.Text:='UUUUUU';//не работает
chart_.SetSourceData(Source:=XL.Workbooks[1].Sheets('Статистические данные').Range('D5:D581'), PlotBy:=xlColumns);//не работает

[funball]

как все-таки заполнить диаграмму данными с листа?

chart_:=XL.charts.add;
chart_.chartType:=1;
chart_.HasTitle:=True;
chart_.ChartTitle.Characters.Text:='UUUUUU';
chart_.ChartArea.Select;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection.NewSeries;
chart_.SeriesCollection(1).Values:=xl.Range['D5','D581']; //не работает

подскажите пожалуйста...

[funball]

методом тыка нашел решение:

chart_.ChartArea.Select;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection(1).Delete;
chart_.SeriesCollection.NewSeries;
chart_.SetSourceData(Source:=XL.Sheets['Статистические данные'].Range['D5:D581'], PlotBy:=xlColumns);

сначала удалил что было создано автоматически, потом создал новый

[Stilet]

Нашел хорошо. Тема закрыта.