Построение графика в Excel

uses
  ... ComObj, ActiveX;
//...
Procedure TCalcOfDefl.RWExcel;
var
  SIR: boolean;
  APID: String;
  App, Ch, Range: Variant;
  i, j: integer;
begin
  // Указать программный идентификатор приложения-сервера
  APID := 'Excel.Application';
  SIR := False;
  // Создать один экземпляр сервера
  App := CreateOleObject(APID);
  SIR := True;
  // показать окно приложения на экране
  App.Visible := True;
  // Редактируем документ
  App.WorkBooks.Add;
 
// ...
 
// данные для диаграмм:
  Range := App.WorkBooks[1].WorkSheets[1].Range['D:D'];
  // добавляем новыю диаграмму на активный лист
  App.ActiveWorkBook.ActiveSheet.ChartObjects.Add(100, 10, 500, 400);
  // выбираем последнюю добавленную диаграмму
  Ch := App.WorkBooks[1].WorkSheets[1].ChartObjects
    [App.WorkBooks[1].WorkSheets[1].ChartObjects.Count];
 
  Ch.Chart.ChartWizard(Source := Range, Gallery := xlLine{Вот здесь всегда ошибка, если оставить
так, то  E2003 Undeclared identifier: 'xlLine'; если взять в любые скобки ругается, если апострофы
поставить:'xlLine' то компилируется но выдает ошибку Method 'ChartWizard' not supported by
automation object; если использовать любое значение: xlArea, xlBar, xlColumn, xlLine, xlPie,
xlRadar, xlXYScatter, xlCombination, xl3DArea, xl3DBar, xl3DColumn, xl3DLine, xl3DPie, xl3DSurface,
xlDoughnut, xlDefaultAutoFormat всеравно всегда ошибка}, Format := 5,
    PlotBy := 2, CategoryLabels := 1, SeriesLabels := 1, HasLegend := False,
    Title := 'График зависимости прогиба от угла', CategoryTitle := 'f',
    ValueTitle := 'φ');
 
  if not SIR then
    App.Quit;
  App := Unassigned;
end;

Procedure TCalcOfDefl.RWExcel;
var
  SIR: boolean;
  APID: String;
  App, Ch: Variant;
  i, j: integer;
begin
  // Указать программный идентификатор приложения-сервера
  APID := 'Excel.Application';
  SIR := False;
  // Создать один экземпляр сервера
  App := CreateOleObject(APID);
  SIR := True;
  // показать окно приложения на экране
  App.Visible := True;
  // Редактируем документ
  App.WorkBooks.Add;
 
  
  // добавляем новыю диаграмму на активный лист
  App.WorkBooks[1].WorkSheets[1].ChartObjects.Add(200, 10, 500, 400);
  // выбираем последнюю добавленную диаграмму
  Ch := App.WorkBooks[1].WorkSheets[1].ChartObjects
    [App.WorkBooks[1].WorkSheets[1].ChartObjects.Count];
  Ch.Chart.ChartWizard(App.WorkBooks[1].WorkSheets[1].Range['D:D'], 4, , 2, , ,
    False, 'График зависимости прогиба от угла', 'φ', 'f');
 
  if not SIR then
    App.Quit;
  App := Unassigned;
end;