anchor.diff:        TheTokenID := ExID;
       end;
     end;
  +
  +  if TokenID = ptOf then
  +    ProceduralDirectiveOf;
   end;
   
   procedure TmwSimplePasPar.StringConst;
  
positive.code: function TmwSimplePasPar.IsDefined(const ADefine: string): Boolean;
  begin
    Result := FDefines.IndexOf(ADefine) > -1;
  end;
  
  procedure TmwSimplePasPar.TypeDirective;
  
negative.code:     end;
    end;
    if TokenID = ptOf then
      ProceduralDirectiveOf;
  
    Lexer.InitAhead;
    case TokenID of
      ptSemiColon: TheTokenID := Lexer.AheadExID;
  