anchor.diff:      FTokenID := ptRoundOpen;
     end;
     case FTokenID of
  +    PtAnsiComment:
  +      begin
  +        if Assigned(FOnComment) then
  +        begin
  +          SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 2);
  +          FOnComment(Self, CommentText);
  +        end;
  +      end;
       PtCompDirect:
         begin
           if Assigned(FOnCompDirect) then
  
positive.code:       end;
    end;
  
    BeginRun := FBuffer.Run;
  
    while FBuffer.Buf[FBuffer.Run] <> #0 do
      case FBuffer.Buf[FBuffer.Run] of
  
negative.code: 
    if Assigned(FOnComment) then
    begin
      SetString(CommentText, PChar(@FBuffer.Buf[BeginRun]), FBuffer.Run - BeginRun - 1);
      FOnComment(Self, CommentText);
    end;
  end;
  
  procedure TmwBasePasLex.BraceOpenProc;
  var
    BeginRun: Integer;
    CommentText: string;
  begin
    case FBuffer.Buf[FBuffer.Run + 1] of
      '$': FTokenID := GetDirectiveKind;
  