unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,comobj, activex, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
row, col,i,XlRowCol: integer;
destrange: olevariant;
excel,sheet,name1: variant;
name,range:string; //***ня какая то....

begin
excel := createoleobject('excel.application');
excel.visible := true;
name1:=excel.workbooks.add; //создать новую таблицу

for i:=1 to 5 do
begin
//две колонки с исходными данными!!!!
excel.activesheet.range['a'+InttoStr(i), ].value := i+1.4;
excel.activesheet.range['b'+InttoStr(i), ].value := i*i;

end;



name:=excel.Charts.Add.name;

excel.Charts.Item[name].ChartType:=1;
excel.Charts.Item[name].ApplyCustomType(4);




excel.ActiveWorkbook.Charts.Item[name].SetSourceData
(Source:=excel.ActiveWorkbook.Sheets.Item[2].Range['a1:a5','b1:b5'],PlotBy:=2);

end;

end.