funcion ExcelApplication1.ActiveWorkbook.SaveAs

[ecfisa]

Hola de nuevo.

Aunque desconozco si trabajará para las versiones que manejas, creo que podrías intentarlo de este modo:

Código Delphi [-]
...
var
  ExcelApp : OleVariant;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.DisplayAlerts := False;
    try
      // Acciones de guardado
      // ...
    finally
      ExcelApp.DisplayAlerts := True;
    end;
  finally
    ExcelApp.Quit;
    ExcelApp := UnAssigned;
  end;
end;

Saludos