Unir archivos Excel

[cmfab]

Gracias nuevamente, encontre esta página en la web http://analisisydecision.es/truco-sa...l-en-uno-solo/

mas abajo viene un codigo que quise transformar a Delphi, me quedo de esta forma

Código Delphi [-]
  XL := CreateOleObject('Excel.Application');
  XL.Workbooks.Open('prueba.xls');
  XL.ActiveWorkbook.SaveAs('TodasJuntas.xls', -4143);
  XL.Workbooks.Open('prueba1.xls');
  XL.Workbooks('prueba1.xls').Sheets('prueba1').Copy (XL.Workbooks('TodasJuntas.xls').Sheets(1)) ;
  XL.Workbooks('prueba1.xls').Close;
  XL.Workbooks('TodasJuntas.xls').sheets(2).activate;
  XL.Workbooks('TodasJuntas.xls').Save;
  XL.Quit;

pero me da error y solo me graba el pruimer archivo prueba.xls, no se si adapté algo mal en el código

saludos