Bei Length() bleibt Programm stehen

[BTeam]

@Hansa
1. Scan ist das RichEdit also ist Scan.Lines.Text natürlich die gesamtlänge des Textes. Die Länge brauche ich um mit FindText das Richedit zu durchsuchen.
2. es ist eine Reine Textdatei
3. siehe 2

@Luckie
Würde sagen er bleibt einfach hängen. Es läst sich dann auf der Form nichts mehr anklicken. Ich beende das Program dann mit "Programm zurücksetzen" aus dem Delphi Menü. Ich vermute mal das der ~10000000 Byte Große Text für Length() zu viel ist.

Im Prinzip könnte ich auch jeder Zeile über eine Schleife einzeln auf das Vorkommen des gesuchten Stings prüfen, aber ich dachte mir mit FindText geht das sicher etwas schneller.

Application.Processmessages
Bringt nix...Die Code Zeile steht auch nicht in einer Schleife.

begin
StartPos := 0;
ToEnd := Length(Scan.Lines.Text);
...