Eliminar la ultima hoja de un excel
 

Hola,

Estoy creando un documento excel con una hoja por cada consulta que ejecuto, puedo ejecutar de 1 a 7 consultas en función de ciertos variables.
El caso es que haga lo que haga siempre me crea una Hoja de mas, y me gustaria saber como eliminar esta ultima hoja.

Ahora mismo para crear las hojas la hago de esta manera:

Código Delphi [-]

While..... do
Begin

XLApp.ActiveWorkBook.Worksheets.Add(EmptyParam, XLApp.ActiveWorkBook.ActiveSheet, EmptyParam ,EmptyParam, lcid);        
Hoja := XLApp.Worksheets.Item[v_Pestana] as _WorkSheet;
... Logica de cada hoja
End;

y la grabacion a disco:

      XLApp.ActiveWorkbook.SaveAs( NomFich + '.xls',
         EmptyParam, EmptyParam, EmptyParam,
         EmptyParam, EmptyParam, xlNoChange,
         EmptyParam, EmptyParam, EmptyParam,
         EmptyParam, EmptyParam, 0);

Muchas gracias a todos por vuestra ayuda.