Remove duplicates from combobox

Question

Say i have a combobox with

apples
apples
pears
oranges
oranges

i would like to have it show

apples
pears
oranges

how can i do this?

Answer 1

for iter := combobox.Items.Count - 1 downto 0 do
begin
  index := combobox.Items.IndexOf(combobox.Items[iter]);
  if index < iter then
    combobox.Items.Delete(iter);
end;