Richedit Farbe ?

[Vader]

hallo turboPASCAL

das mit den ersten zwei zeilen funktioniert, jetzt wollte ich das die zeile 3 und 4 rot wird,
beim reinkopieren, aber das geht nicht, ich hab es so probiert

Delphi-Quellcode:

procedure TForm.RicheditChange(Sender: TObject); 
var 
  cp: TPoint; 
begin 
  cp := Richedit.CaretPos; 

  Richedit.selstart := 3; 
  Richedit.SelLength := 
      Length(Richedit.Lines[3]) + 2 + // + 2 wegen dem #13#10 hinter einer Zeile 
      Length(Richedit.Lines[4]) + 2 + //            -"- 
      Length(Richedit.Lines[5]) + 2;  //            -"- 
  Richedit.SelAttributes.color := clRed; 

  Richedit.selstart := 3; 
  Richedit.CaretPos := cp; 
  
end;

wie muß ich das ändern ?
mfg vader