Delphi - Contar líneas de codigo. Ayuda por favor!!!

Tengo que hacer un programa donde tenga que contar las línas de código un *.pas . Primero debo contar cuántas clases tiene la unit, luego por en cada clase contar los métodos y luego contar las líneas de código que tiene cada método. También debo considerar que las units que estan en el Uses se cuentan como si estuvieran cada una en una línea, o sea, contar cada coma hasta el punto y coma final. Por favor, alguien que me ayude