procedure TForm1.ExcelCtrl;
var
    Excel :Variant;
    WorkBks,WorkSheet, XLSheet, XLChart,ARange : OleVariant;
    i,j,iCount,jCount,index : Integer;
    tSeries: Series;
begin

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

    Excel.Visible := True;

   WorkBks :=Excel.workBooks.Add;

  // xls 파일에서 보고자 하는 sheet 를 선택한다
  WorkSheet := WorkBks.Worksheets.Item['Sheet1'];

  WorkSheet.Name := 'aaa';
  WorkSheet.Activate;

  // 엑셀에 값을 넣는다.
   iCount := Length(OneXDataD);
   jCount := Length(OneXDatad[0]);
   for i := 0 to iCount*100  do begin
      for j := 1 to jCount do begin
         WorkSheet.Cells.Item[i+1 , j]   := OneXDataD[i mod iCount , j - 1];
      end;
   end;


  XLChart := WorkBks.Charts.Add;
  XLChart.Name := '바 차트';
  XLChart.Activate;

// 여기서 부터 차트를 만들려고 하는데..
// 속성을 잘 모르겠습니다.
// 델파이에서 엑셀 차트를 제어할 수 속성이라두 가르켜 주시면
// 감사 하겠습니다.
// 차트를 제어한 예제가 있으면 더욱 감사하겠습니다.


   XLChart.ChartType := xlLineMarkers;
end;