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

[benniwm]

morgn!
ich habs jetzt so wie ichs bräuchte:

Delphi-Quellcode:

//Hintergrund
      canvas.FillRect(rect);
      //ersten Teil des strings  (timestamp)
      s:=copy(items[index],0,10);
      canvas.font.Color:=$00E47B07;
      canvas.Font.Style:=[];
      canvas.TextOut(rect.Left+2,rect.top+2,s);
      Textbreite:=canvas.TextWidth(s);
      //zweiter Teil des strings  (nick)
      s2:=copy(items[index],11,10);
      canvas.font.Color:=$00F6AD5B;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s2);
      //dritter Teil des strings  (:)
      s3:=copy(items[index],0,21);
      s3:=s3[21];
      canvas.font.Color:=$00FCD9B1;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s+s2);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s3);
     //vierter Teil des strings  (text)
      s4:=copy(items[index],22,length(items[index]));
      canvas.font.Color:=$00D0D0D0;
      canvas.Font.Style:=[];
      Textbreite:=canvas.TextWidth(s+s2+s3);
      canvas.TextOut(rect.Left+2+Textbreite,rect.top+2,s4);

nur hab ich das jetzt mehr oder weniger durch ausprobieren hinbekommen!
könnte mir jemand erklären wie ich es machen kann, dass der 2.teil des strings in einer variablen länge sein kann(so lang wie der text in einem edit!), und eine bestimmte farbe hat und der rest dann wieder ne andere farbe:

[08:44:25]Name:TESTETSTETS

thX!!