Doppelte Einträge aus ListBox entfernen

[ManuMF]

Hallo,

ich möchte aus einer ListBox doppelte Einträge entfernen. Ich benutze dazu folgenden Code, den ich hier gefunden habe:

Delphi-Quellcode:

for D1 := (PCListe.Items.Count - 1) downto 0 do
begin
  for D2 := (PCListe.Items.Count - 1) downto 0 do
  begin
    if (PCListe.Items.Strings[D1] = PCListe.Items.Strings[D2]) and (D1 <> D2) then
      PCListe.Items.Delete(D2);
  end;
end;

aber beim Ausführen kommt immer der Fehler "Listenindex überschreitet Maximum".
Weiß jemand, wo der Fehler liegt (downto sollte das ja eigentlich verhindern)?

Danke,
ManuMF