[cuburu]

si tu problema es que quieres que cada fila te aparezca de un color diferente el texto lo que necesitas es colocar la propiedad Style a lbOwnerDrawFixed y en el evento OnDrawItem poner este codigo

with (Control as TListBox) do
begin
if Odd(Index) then
Canvas.Font.Color := clBlue
else
Canvas.Font.Color := clGreen;

Canvas.Rectangle(Rect);
Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
end;