In method analyse_text of ComponentPascalLexer, the code

        if 'END' in text:
            result += 0.01

is duplicated twice, which just results in +0.02 if 'END' is in the text.

I assume the point was to check for BEGIN/END and PROCEDURE/END pairs, but right now it just checks the same condition twice.