LISTBOX: Immer die ersten 10 Zeichen eines eintrags färben?!

[benniwm]

glaube ich nicht weil ich ja nen ganzen string habe, und somit ja nicht weiß wann der name aufhört und der text anfängt.
außer ich sende die länge des nicks immer mit:
z.b nickname=Peter
dann würde die nachrihct so aussehen:
5[11:18:03]Peter:NAchricht....
dann könnte ich das erste zeichen aus dem string entfernen und dann so weiter machen:

Delphi-Quellcode:

//Uhrzeit
    richedit1.SelStart := 0;
    richedit1.SelLength := 10;
    richedit1.SelAttributes.Color := clBLue;
//Name
    richedit1.SelStart := 11;
    richedit1.SelLength := 11+Die Zahl die vom string entfernt wurde;
    richedit1.SelAttributes.Color := clRed;
//Text
    richedit1.SelStart :=  richedit1.SelLength := 11+Die Zahl die vom string entfernt wurde;
    richedit1.SelLength := Length(RichEdit1.Text);
    richedit1.SelAttributes.Color := clBLue;

nur weiß ich nicht wie ich die Zahl wegnehmen kann...
thx!!