Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Puedes usar el método LoadFromFile de un TStringList para leer un archivo .pas por ejemplo y luego acceder a la propidad Count que te devolverá el número de líneas.