Listbox Einträge vergl., bei Doppelbelegung einen Löschen

[Ginko]

Hallo danke für die schnellen Antworten, also es klappt mit deiner Lösung fast, allerdings nur wenn ich 'o'
auf 4 ändere

Delphi-Quellcode:

  if listbox0.Items.Count = 5 then
    begin
      o:=1;
      repeat
        if (listbox0.Items[o][5] +  listbox0.Items[o][7] + listbox0.Items[o][9]) =
           (listbox0.Items[o - 1][5] + listbox0.Items[o - 1][7] + listbox0.Items[o - 1][9]) then
            listbox0.Items.Delete(o);
            Inc(o);
      until (listbox0.Items.Count <> 5) or (o = 4);
    end;

ansonsten bringt er mir nen Exception, das liegt aber denk ich mal daran, dass bei der Listbox der 'Index' bei 0
anfängt und der 'Count' normal bei 1.
Also 'o' ist ja die Indexnummer und bei 4 müsste der 'Count' auf 5 stehen, damit kein Fehler kommt, wenn ich mich nicht täusche.
Jedenfalls das Problem ist, dass der erste, der zweite und der letzte Wert nicht verglichen werden also nur wenn
wenn Idex[2] und Index[3] gleich sind wird eins gelöscht...