Como crear un libro de excel con 6 hojas no estoy usando el ExcelApplication

[Martha Ayala]

e Necesito un crear un archivo excel pero con 6 hojas no estoy ocupando el ExcelApplication porque por cada archivo excel necesito una nueva instancia. estoy ocupando lo siguiente para crear el archivo excel

Código Delphi [-]
 var
   WorkSheet:_WorkSheet;
   WorkBks:WorkBooks;
   WorkSheets:Sheets;
   Workbk: WorkBook;
 begin
   //Creamos una instancia de la aplicación
   XLApp:= Excel_TLB.CoApplication_.Create;
   XLApp.Visible[0]:=True;
   WorkBks:=XLApp.Workbooks as WorkBooks;
   WorkBks.Add(XLWBatWorksheet, 0);
   WorkBks.Add(XLWBatWorksheet, 0);
   WorkBk := WorkBks.Item[1];
   WorkSheets := Workbk.WorkSheets;
   //establecemos él numero de hoja
   WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
   {...}

pero cuando quiero crear la siguiente hoja escribo

Código Delphi [-]
   WorkSheet := WorkBk.WorkSheets.Get_Item(2) as _WorkSheet;

y me marca Error indice invalido
por favor agradeceria mucho su ayuda o alguna pista