Such Algorithmus(zweier Identischer Strings)

[Pitch-Bull]

Ich habe eine Listbox mit x Items. Nun will ich alle items (mit gleichem string) löschen...

Mein Code:

Delphi-Quellcode:

procedure TForm2.SpeedButton7Click(Sender: TObject);
var
I,A:integer;
begin
  for I:=0 to ListBox2.Count-1 do
      for A:=1 to ListBox2.Count do
        begin
          if ListBox2.Items.Strings[i]=ListBox2.Items.Strings[a] then
            begin

              ListBox2.items.Delete(ListBox2.ItemIndex);
            end;
       end;
end;

Der Compiler löscht zwar einen doppelten wert, jedoch müsste ich ein paar mal auf den Button drücken, damit er alle doppelten, dreifachen... Strings korrket löscht. Zudem bekomme ich immer eine Fehlermeldung, das der listenindex überschritten wird.

Diesmal würde mir auch ein link weiterhelfen, habe nämlich mal wieder nichts gefunden...
( Wissen ist zu wissen wo es steht... )->Also bin ich doof...