//Menggunakan Chart
procedure TForm1.Button5Click(Sender: TObject);
var ARange,Sheet	: Variant;
      i , j	: integer;   

begin
         V.Workbooks.Add(xlWBatWorkSheet);
         j := V.Workbooks.Count; 
         V.Workbooks[ j ].WorkSheets[1].Name := 'Contoh 5';
         Sheet := V.Workbooks[ j ].WorkSheets['Contoh 5'];
         for i := 1 to 10 do
                Sheet.Cells[i, 1] := i;
         V.Workbooks[j].Sheets.Add(,,1,xlChart);
         Sheets := V.Workbooks[j].Sheets;
         ARange := Sheets.Item['Contoh 5'].Range['A1:A10'];
         Sheets.Item['Chart1'].SeriesCollection.Item[1].Values := ARange;
         Sheets.Item['Chart1'].ChartType := xl3DPie;          
end;
