uses
ComObj;
-------
var ExcelApp: Variant;
begin
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Add;
ExcelApp.WorkSheets[1].Activate;
excelapp.cells[1,1].value:='名称';
excelapp.cells[1,2].value:='月份';
excelapp.cells[1,3].value:='数量';
....
end;