// combo'nun style özelliği csOwnerDrawFixed olmalı
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TComboBox) do
begin
if Odd(Index) then Canvas.Font.Color:=clRed
else Canvas.Font.Color:=clgreen;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
end;
end;