Estimados ya lo solucione usando esto.-
Código Delphi
[-]
WrKs.Range['A1','Al1'].EnD[xldOWN].SELECT ;
Excel.Activecell.rows.Offset[-1,0].Select;
Excel.ActiveCell.EntireRow.select;
Excel.ActiveCell.EntireRow.delete;
Excel.ActiveCell.EntireRow.delete;
Atte. Muchas gracias .-