Frage Listbox doppelte Eintraege loeschen.

[lucius]

Nochmals hallo zusammen, ich moechte doppelte Eintraege in einer Listbox loeschen, das geht mit einer Schleife.
Aber die Schleife muss vom Anfang bis Ende der Listbox laufen, ich hab da schon was Code aber der faengt am Ende an und loescht nur 1 doppelter Eintrag obwohl es mehrere gibt.

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
Var i:integer;
    S:string;
begin
  with listbox1 do
    begin
     i := items.count - 1; //Listbox vom Ende durchgehen
     while i >= 0 do
       begin
         S := items[i];
         while items.indexof(S) <> i do
           begin
             items.Delete(items.indexof(S));
             dec(i);
           end;
         dec(i); //Nächstes item
       end;
    end;
end;

Zitat:

Beilspiel:

Affe6
Affe5
Affe4
Affe5 <--- muestte weg
Affe3
Affe4 <--- muesste weg
Affe6 <--- muestte weg

Kann man so etwas realisieren ?