This procedural type is used by the TSyntAnalyzer.OnParseToken Event

TParseTokenEvent = procedure (Client: TParserResults; const Text: ecString; Pos: integer; var TokenLength: integer; var Rule: TTokenRule) of object;