[Neftali [Germán.Estévez]]

Utiliza el evento OnDrawItem del ComboBox.

(1) Coloca en un formulario un TComboBox y rellena unos cuentos elementos.
(2) Propiedad Style a OwnerDrawFixed (MUY IMPORTANTE)
(3) Coloca un LAbel en el formulario.
(4) En el evento OnDrawFixed lo siguiente:

Código Delphi [-]
  with Control as TComboBox do
   begin
     // Rectagulo
     Canvas.FillRect(Rect);
     //Texto
     Canvas.TextOut(Rect.Left, Rect.Top, ComboBox1.Items[Index])
   end;

  if (odSelected in State)  then begin
    Label2.Caption := 'Seleccionando el ' + IntToStr(Index) + '   - ' + ComboBox1.Items[Index];
  end;

Un saludo.