Source position: pscanner.pp line 600
type TCEEvalVarEvent = function(
Sender: TCondDirectiveEvaluator;
Name: string;
out Value: string
):Boolean of object;