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 Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+ImageList1.Height+2,Rect.Top,Items[Index]);
ImageList1.Draw(Canvas,Rect.Left,Rect.Top,Index);
end;
end;