Файлы большого размера |
Stack overflow |

Всем привет. Помогите разобраться в чом проблема.
прочитал статью
"Быстрая функция для замены строк"
http://delphikingdom.com/asp/viewitem.asp?catalogid=1059

функция

function StrReplace(const Find, Replace, S: AnsiString;
                    const CaseSensitive: Boolean): AnsiString;

попробовал на файле 40 000 байт.
но на файле 9 000 000 байт быдает ошибку!!!

raised exception class EStackOverflow with message  Stack Overflow. Process stoped. Use Step or Run to continue.

Вообщем незнаю что делать помогите.

procedure TForm1.Button2Click(Sender: TObject);
var
  List:TStringList;
begin
  List := TStringList.Create;
  List.LoadFromFile(strProgramDir + 'TestRepl.txt');
  List.Text := StrReplace(' THE ', ' eht ', List.Text, true);
  List.SaveToFile(strProgramDir + 'TestRepl.txt');
  List.Free;
end;