var Excel:Variant;

WorkSheet:Variant;

Chart:Variant;

i:Integer;

begin

    Excel := CreateOleObject('Excel.Application');

    Excel.Visible:=True;

      //  Создадим новую книгу

    Excel.Workbooks.Add;

    WorkSheet:=Excel.Workbooks[1].WorkSheets.Add;

 

    // -------- или ---------

    //    Откроем существующую книгу

  //  Excel.Workbooks.Open('FileName.xls');

  

   // Графики и данные

    WorkSheet.name:='Графики';

 

    Chart:=WorkSheet.ChartObjects.Add(300,300,750,500).Chart;

    Chart.ChartType:=xlXYScatterLines;

  

    Chart.SeriesCollection.NewSeries;

    Chart.SeriesCollection(0).Name:='Серия1';

 

    for i:=0 to 100 do

        begin

        WorkSheet.Cells[i,0].Value:=i;

        WorkSheet.Cells[i,1].Value:=i*i;

        end;

 

    s:='=Графики!'+WorkSheet.Cells[0,0].Address+':'+ WorkSheet.Cells[100,0].Address;

    Chart.SeriesCollection(0).XValues:= s;

    s:='=Графики!'+WorkSheet.Cells[0,1].Address+':'+ WorkSheet.Cells[100,1].Address;

    Chart.SeriesCollection(0).Values:= s;

Var

  WX:variant;

Begin

  WX:=CreateOleObject('Excel.Application');

End;