BD a gráfico Excel

[Willmer_2911]

Para generar los gráficos en Excel solo debes hacer lo siguiente,
recuerda colocar en el Uses del formulario "ComObj"

procedure TFRMExcel.BitBtn1Click(Sender: TObject);
var
XLapp, xlw, Rango : Variant;
lineaexcel, colexcel : Integer;
begin
XLapp := CreateOleObject('Excel.application');
XLapp.visible := true;
xlw := xlapp.workbooks.add;
xlApp.workbooks[1].worksheets[1].cells(1,1) := 'Tipo';
xlApp.workbooks[1].worksheets[1].cells(2,1) := 'A';
xlApp.workbooks[1].worksheets[1].cells(3,1) := 'B';
xlApp.workbooks[1].worksheets[1].cells(4,1) := 'C';
xlApp.workbooks[1].worksheets[1].cells(1,2) := 'Promedio';
xlApp.workbooks[1].worksheets[1].cells(2,2) := 96;
xlApp.workbooks[1].worksheets[1].cells(3,2) := 70;
xlApp.workbooks[1].worksheets[1].cells(4,2) := 45;
// Generar Grafico
Rango := xlApp.workbooks[1].worksheets[1].Range['A1:B4'];
xlApp.Charts.Add;
xlApp.ActiveChart.ChartType := 54;
xlApp.ActiveChart.SetSourceData (Rango, 2);
xlApp.ActiveChart.Location(2, 'Hoja1');
xlApp.ActiveChart.HasTitle := True;
xlApp.ActiveChart.ChartTitle.Characters.Text := 'Promedio';
xlApp.ActiveChart.Axes(1).HasTitle := False;
xlApp.ActiveChart.Axes(3).HasTitle := False;
xlApp.ActiveChart.Axes(2).HasTitle := False;
xlw.close;
xlapp.quit;
end;