doppelte einträge löschen

[Remote1]

habs jetzt so:

Delphi-Quellcode:

procedure TForm1.double_delClick(Sender: TObject);
var i,k:integer;
begin
i := 0;
While i < ListBox1.Count do
 Begin
   k := i+1;
   While k < ListBox1.Count do
     If ListBox1.Items.Strings[i] = ListBox1.Items.Strings[k]
      Then ListBox1.Items.Delete(k)
      Else Inc(k);
   Inc(i);
 End;
End;

rückwärts kam auch immer ein fehler
danke für die hilfe!!!!!