Нижеприведенный кусок кода работает чрезвычайно медленно, например, если lData 6 MB, то процедура занимаетс порядка 5ти минут. Есть ли альтернативный скоростной вариант?

const
  MAX_LINE_LENGTH = 64;
...
  P := MAX_LINE_LENGTH + 1;
  while P <= Length(lData) do begin
    Insert(EOL, lData, P);
    P := P + MAX_LINE_LENGTH + 2;
  end;