1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var StrL:TStringlist;
var i:integer;
begin
  //Erstellen einer temporären Stringliste
  StrL:=TStringlist.Create;
  try
    //neue Einträge sortieren, Duplikate nicht zulassen
    StrL.Sorted:=True;
    StrL.Duplicates:=dupIgnore;
    
    //Einfügen der AuswahlItems (evtl anpassen!)
    for i:=0 to Auswahl.Count-1 do
      StrL.Add(Auswahl[i]);

    //Items der ComboBox zuweisen 
    Combobox1.Items.Assign(StrL);
  finally
     //Stringliste freigeben
    StrL.Free;
  end;
end;