Una vez tuve necesidad de contar las lineas tambien, hasta q me calló un archivo de 10 GB, al final me resultó mucho mas rapido hacer un ciclo y contarlas lineas a linea algo así
Código Delphi
[-]
assignfile(f,'web.log');
reset(f);
i := 0;
repeat
readln(f);
inc(i);
until eof(f)
closefile(f);