Problem beim Löschen aus einer TempList

[lblbw]

Hallo,

ich habe eine Firma, die Anzeigetafeln für den Kampfsport entwickelt und herstellt.
Die Kämpfer werden von der Software erfasst. Diese müssen dann zum wiegen, ob sie auch noch die gleiche Gewichtsklasse haben. Dabei kann es vorkommen, das noch Kämpfer nachgetragen werden müssen. Nun will ich diese Kämpfer nach Vereine sortieren. Aber die nachgetragenen Kämpfer stehen dann in der ListBox als seperater Verein drin. Die soll aber verhindert werden, und da ist mein Problem, entweder ist der Listenindex außerhalb oder das Programm stützt ab. Der Quelltext löscht die vorhanden doppelte Vereine, soweit sie alle untereinander stehen.

...

Delphi-Quellcode:

I:=0;
J := 0;
repeat
I := J;
repeat
Text1 := TempList2[I]
if Text1 = Templist2[I+1] then
begin
 TempList2.Delete(I+1);
end
else
begin
 I := I+1;
end;
until I = TempList2.Count-1;
J := J+1;
until J = TempList2.Count-1;
ListBox4.Items:=TempList2

Wusste jetzt nicht, wo ich das reinschreiben sollte