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

[benniwm]

danke für die antworten nur habe ich jetzt dass näxte problem:
ich bekomme ne string geschickt und zwar so:

Delphi-Quellcode:

procedure read.Execute;
var
instr:string;
begin
while
form1.client.Connected
do
begin
instr := form1.client.Socket.ReadLn;
form1.listbox1.items.Add(instr);
form1.listbox1.Selected[form1.listbox1.Items.Count-1] := true;
end;
end;

diese procedure ist in einer extra unit drin...
drum müsste ich jetzt wahrscheinlich den erhaltenen string aufspalten und dann in das listview einfügen.oder?