Для строк в 3мб не удивительно. Быстрее замену сделать не получится. В данном случае по хорошему было бы заменить символ
на и выдавать в поток после каждой замены указатель на строку, идущую до этого . К сожалению в данном пакете такое не возможно без использования InlineCode и знания Delphi