// menunjukkan hierarki object Excel
procedure TForm1.Button2Click(Sender: TObject);
var i , j : integer;
begin
          V.Workbooks.Add;
          V.Workbooks[1].Sheets.Add(,,1,xlWorkSheet);	
          V.Workbooks[1].Sheets.Add(,,1,xlChart);	          
          V.Workbooks.Add(xlWBatChart);
          V.Workbooks.Add(xlWBatWorkSheet);  
     	  for i  := 1 to V.Workbooks.Count do 
          begin
    		ListBox1.Items.Add('Workbook: ' + V.Workbooks[i].Name);
    		for j := 1 to V.Workbooks[i].Sheets.Count do
      	      		ListBox1.Items.Add('  Sheet: ' + V.Workbooks[i].Sheets[j].Name);
          end;
end;

