Abrir plantilla Excel y pasarle datos

[Jose Manuel]

Hola, estoy trabajado D6 Enterprise y en una aplicación que tengo, quisiera poder abrir un plantilla excel y pasarle datos de un Base de Datos.
He visto algunos ejemplos, pero al ponerlos en practica no me funcionan, yo he puesto dos botones, uno para abrir excel y otro para cerrarlo, pero solo se abre una vez y ya no puedo volver a abrirla.

Este es el codigo, por si alguien me dice que está mal.

Un saludo a todos
Jose Manuel

.........................................................................

Código Delphi [-]
procedure Tfresumen.Btn_pasar_a_excelClick(Sender: TObject);
var
  aLCID,x,y : Integer;
  sValue:String;
begin
      // Abrir plantilla de excel
      aLCID := GetUserDefaultLCID;
      ArchivoXL := ExtractFilePath(ParamStr(0))+'resumen.xls'; //Plantilla EXCEL
      ExcelApplication1.Connect;
      ExcelApplication1.Visible[aLCID] := True;
      ExcelApplication1.UserControl := True;
      ExcelApplication1.Workbooks.Open(archivoXL, False, False,
         EmptyParam,'',False,False,EmptyParam,
         EmptyParam,false,false,EmptyParam,false,0);
     ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkBook);
     ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item[1] as _Worksheet);
      ExcelWorksheet1.PageSetup.LeftHeader := 'resumen';
end;

procedure Tfresumen.Btn_Cerrar_ExcelClick(Sender: TObject);
begin
   ExcelWorksheet1.Disconnect;
   ExcelWorkbook1.Disconnect;
   ExcelApplication1.Disconnect;
   ExcelApplication1.Quit;
end;