关于有excel表下生成柱状图

我一个excel表中有多个表，每个表中间有空四行是用来放对应表的柱状图的；虽则网上有许多的介绍，但是都没有完整的源码，很多编译不过；在此抛出一点头代码，求完整的代码；分别用了ExcelApplication,   ExcelWorkbook和ExcelWorksheet   三个控件，能用OLE更好，急啊，今天也看了一天了，还是没有理清
procedure TForm1.Button3Click(Sender: TObject);
var
 asheet1,achart,range:variant;
begin
  excelapplication1.Connect;
  excelworkbook1.OpenLinks(extractfilepath(application.ExeName)+'Demo1.xls');
  asheet1:=excelapplication1.Workbooks[1].Worksheets[1];//此处就有错误了，可以编译但运行讲没有注册
 // 这里定义图的大小，最好能定位，如在第几行几列，长宽是多少 ; 否则很多表，就肯定或与数据表重或表与表重叠
  achart:=asheet1.chartobjects.add(100,100,200,200);
  achart.chart.charttype:=4; //选择二维图的形态
  //给二维图赋值；即有给X轴赋值的也有给Y轴赋值的
  //series:=achart.chart.seriescollection;//这里连接编译都编译不过
  //range:sheet1!r3c2:r3c4:r3c6;//这里好像只给Y轴赋值了
  //series.add(range,true);;
   作出后怎样保存，怎样退出
   excelapplication1.Quit;
end;