Duda con el combo

[delphi.com.ar]

Aquí te paso un ejemplo sencillo:

{
  www.delphi.com.ar
  El combo debe tener la propiedad Style en uno de los siguientes valores: csOwnerDrawFixed, csOwnerDrawVariable
}
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  with ComboBox1.Canvas do
  begin
    if not (odSelected in State) Then
    begin
      if Odd(Index) Then
        Font.Color := clWhite
      else
        Font.Color := clBlack;

      if Odd(Index) Then
        Brush.Color := clGray
      else
        Brush.Color := clSilver;
    end;

    FillRect(Rect);
    TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ComboBox1.Items[Index]);
  end;
end;

Saludos!