Открытие нулевого устройства и пропуск туда вывода, вероятно, сработает. Под DOS производительность устройства NUL была удивительно плохой IIRC (насколько я понимаю, он не был буферизован, поэтому система должна была искать NUL в таблице устройств при обработке каждого байта), но я не удивился бы если это улучшено под более новыми системами. В любом случае, это, вероятно, самое простое, что вы можете сделать, если вам действительно не нужно максимизировать производительность. Если производительность критична, теоретически может быть возможно переопределить функцию WriteLn, чтобы она ничего не делала для определенных файлов, но, к сожалению, я считаю, что она допускает синтаксические формы, которые были недопустимы для любых пользовательских функций.
В противном случае я бы предложил выполнить поиск / замену регулярного выражения, чтобы закомментировать операторы WriteLn способом, который можно механически восстановить.