OnChange wird sicherlich sehr oft aufgerufen, bei jeder Eingabe eine Zeichens, bei jedem Entfernen ines Zeichens. Ob acuh bei der Änderung der Farbe ... weiß ich nicht, möchte es aber nicht ausschließen. Und der Programmabsturz in 'ner Endlosschleife, lässt sehr stark darauf schließen. Dort ruft praktisch die Änderung der Farbe ein Anstoßen der Änderung der Farbe, was zu einer Änderung der Farbe führt, die wiederum eine Änderung der Farbe ... führt.
Wir wissen zwar was Du möchtest, aber nicht genau wann.
Mir scheint aber, dass die Änderung der Farbe ab der aktuellen Position bis zum Ende des Textes sicherlich nicht als "Daueraufgabe" gedacht ist, sondern eher zu einem bestimmten Zweck gedacht ist.
Momentan wäre es halt so, dass Du den Text immer ab der Stelle, an der gerade was geändert, eingefügt, entfernt ... wird, ggfls. jede Änderung der Cursorposition den Text ab der aktuellen Position bis zum Ende einfärbt. Das ergibt (glaub' ich) kein wirklich reproduzierbares Ergebnis.
Wäre da ein OnExit eventuell eher geeignet oder OnKeyUp? Dann wäre immer alles ab dem Letzten (s. o.) eingefärbt und jederzeit erkennbar.
Aber: Was genau ist der Grund für die Einfärbung, was willst Du bezwecken. Wenn wir das erfahren dürften, könnten wir eventuell einen Lösungsvorschlag liefern.
Es gibt noch die Eigenschaft Modified. Wenn die true ist, wurde was geändert, sonst nicht, dann wäre das "Neumalen" nicht erforderlich und reduziert das Problem eventuell.
Delphi-Quellcode:
...
begin
if not reMain.Modified then exit;
Len := StrToIntDef(edtPosition.Text, 25); // edtPosition = Editfeld mit Positionsangabe
...