Si queremos que un listbox, o un combobox tengan sus items de colores introducid este código al evento OnDrawItem del componente:
Código Delphi
[-]
with (Control as TComboBox) do begin
if Odd(Index) then Canvas.Font.Color:=clGreen
else Canvas.Font.Color:=clRed;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
end;