Bei Length() bleibt Programm stehen

[BTeam]

Hi
Ich bastel gerade an einen Programm was einen Große TextDatei (> 10 MB) nach bestimmten Strings durchsucht und dann dort Änderungen vornimmt. Das ganze funktioniert auch bisher ganz prima...allerdings nur mit meiner Kleinere Textdatei die ich zum testen benutzte.
Die TextDatei lade ich in ein RichEdit genauer gesagt benutze ich das TJvxRichEdit und suchen dann mit FindText nach den Textstellen.
Mein Problem ist nun das mein Programm beim testen mit der Großen 10 MB Datei hängen bleibt. Es stürtzt nicht ab oder so sondern bleibt einfach stehen. Ich konnte nach längeren Suchen folgende Zeile für dafür Ausfindig machen

Var ToEnd:Integer
...
ToEnd := Length(Scan.Lines.Text); // hängt

Gibt es noch eine Andere möglichkeit die Textlänge zu bestimmen?