contar linhas de uma planilha xls no delphi

[socho]

procedure TForm1.Contarlinhas(Sender: TObject);

var

excel, excelSheet: Variant;

begin

excel:=CreateOleObject('Excel.Application');

try

excel.WorkBooks.Open('endereco do arquivo',0,True); //Entre aspas coloca onde esta o xls

excelSheet := excel.Workbooks[1].WorkSheets['plan1']; //Entre aspas coloca o nome da planilha a contar as linhas

nlinhasex := excelSheet.Cells.SpecialCells(11).Row;

excel.Quit

except

nlinhasex:=0;

excel.Quit

end;

end;

para quem estiver procurando muito como eu ai vai a dica.

espero que ajude!