ComboBox: keine doppelten Einträge

[yankee]

Ich will aus einer ComboBox (mit sorted=True) alle doppelten Einmträge entfernen. Das sieht dann soi aus:

Delphi-Quellcode:

for i :=1 to VerlagcomboBox.Items.Count do
    begin
        if VerlagcomboBox.Items.Names[i] =VerlagcomboBox.Items.Names[i+1] then VerlagComboBox.Items.Delete(i);
    end;

Funzt aber nicht. Was ist falsch?