[[Bicho]]

En primer lugar, hay que poner un ImageList en el form, con las imágenes que querramos usar.

Tanto para el combobox como el listbox hay que poner la propiedad Style a lbOwnerDrawFixed.

Por último pondremos éste código en el evento OnDrawItem:

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox) do begin //  with (Control as TCombobox) do begin --según el componente que querramos usar
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left+ImageList1.Height+2,Rect.Top,Items[Index]);
     ImageList1.Draw(Canvas,Rect.Left,Rect.Top,Index);
  end;
end;