Pon este codigo en un botón y prueba.
Suerte y saludos
Código Delphi
[-]
procedure AExcel;
Excel: variant; Libro: variant; Hoja: variant; begin
try
Excel := CreateOleObject( 'Excel.Application');
Excel.visible := False;
Excel.SheetsInNewWorkbook := 1;
Libro := Excel.WorkBooks.Add; Hoja := Libro.WorkSheets.Add; Hoja := Libro.WorkSheets[1]; Hoja.Name:= 'GENERAL'; Libro.SaveAs(fichero); except
Application.MessageBox('Error al guardar el archivo','Alerta',MB_ICONWARNING);
Finally
Libro.Close;
Excel.quit ;
end;
end;