como exportar un tchart a excel??

[jact85]

gracias caro por contestar pero fijate que aun no puedo porque al tratar de exportar con el siguiente codigo me da el error de que no encuestra la imagen.


procedure TForm15.Button1Click(Sender: TObject);
var excel: OleVariant;
begin

chart1.SaveToBitmapFile('chart.bmp');

excel := CreateOleObject('Excel.Application');
excel.Workbooks.add.worksheets[1].shapes.addpicture('chart.bmp', False, True, 6, 6, 666, 666);
excel.visible := True

end;