TPSOnProcessDirective

type TPSOnProcessDirective = procedure(

  Sender: TPSPreProcessor;

  Parser: TPSPascalPreProcessorParser;

  const Active: Boolean;

  const DirectiveName: TbtString;

  const DirectiveParam: TbtString;

  var Continue: Boolean

);