TRichEdit flackern dezimieren bei OnChange Färbung

[KodeZwerg]

Hallo, in einem anderen Thread wurde mir bereits super geholfen, da es sich dort um ein anderes Thema handelt, hier ein neuer Thread etwas spezifischer.

Ich nutze ein RichEdit da man da ja mehr als eine Farbe nutzen kann.
Nun möchte ich es erreichen das ein Text ab einer vorgegebenen Position eine andere Farbe bekommt.
Dank Reedemer und Delphi.Narium klappt das auch schon super!

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject);  // reMain = RichEdit Control
var
  Len : Integer; // Position ab wann eingefärbt werden soll
  LenText : Integer; // Endposition
begin
  Len := StrToIntDef(edtPosition.Text, 25); // edtPosition = Editfeld mit Positionsangabe
  edtPosition.Text := IntToStr(Len); // diesen Wert zur Kontrolle ins edit zurückschreiben
  LenText := Length(reMain.Text); // Wird (eventuell) mehrfach benötigt, ermitteln wir nur einmal. <- Danke!

  if LenText > Len then // falls ein einfärben nötig wird, hier die routine
  begin
    reMain.SelStart := Len; // cursor auf position X setzen
    reMain.SelLength := High(Integer); // und bis zum ende alles markieren
    reMain.SelAttributes.Color := clGreen; // mit dieser farbe das selektierte einfärben
    reMain.SelStart := High(Integer); // cursor ans ende
    reMain.SelLength := 0; // selektierung aufheben
  end;
end;

Im Prinzip funktioniert es wunderbar, also es macht genau das was ich möchte.

Jetzt meine Frage, bekommt man das auch hin ohne das es flackert, bin ich vielleicht im falschen Ereignis dafür?
Mit flackern meine ich = man bemerkt das der Text kurz blau wird (selektiert), sich einfärbt und dann wieder "entblaut" wird.

Ich hoffe es ist verständlich genug formuliert. Wenn nicht bitte fragen!


Vielen Dank fürs Lesen!

//edit
Probiert hatte ich es über reMain.Lines.Begin/EndUpdate, aber da gerate ich mit obigen code in eine Endlosschleife bis letztendlich das Programm ganz abstürzt.