Borrar ultimas filas con excel

[gdlrinfo]

Estimados tengo que borrar las ultimas dos filas de un excel pero no logro hacer que las borre estoy usando esto:

Código Delphi [-]
    WrKs.Range['A1','Al1'].EnD[xldOWN].SELECT ; //Con esto VOy al final
    Excel.Activecell.rows.Offset[-2,0].Select; //Subo dos filas
   for i := 2 downto 1 do // Aqui las borro 
    begin
     WrkS.Rows[i].Delete;
    end;

El problema es que solo me selecciona la primer casilla y no toda la fila entonces no la borra nose como hacer para que me deja seleccionado todo el largo de la celda alguna sugerencia.-
Desde ya muchas gracias !!

[gdlrinfo]

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 .-

[MAXIUM]

Gracias.

Siempre es bueno publicar la solución

[gdlrinfo]

Abrazos!