doppelte einträge löschen

[Remote1]

irgend wie hab ich nen totales brett vorm kopf

ich kreig immer die fehlermeldung:
"list index out of bounds (xx)"

hir die procedure

Delphi-Quellcode:

procedure TForm1.double_delClick(Sender: TObject);
var i,k:integer;
begin
if listbox1.Count>0 then
  for i:=0 to listbox1.Count-2 do
    for k:=i+1 to listbox1.count-1 do
       if listbox1.Items.Strings[i]=listbox1.Items.Strings[k]
         then listbox1.Items.Delete(k);
end;

das problem liegt irgendwo bei k, zumindest meldet sich da der compiler
wenn ich aber mir die werte und strings in einer showmessage() anzeigen lasse, dann kommt keine fehlermeldung und alles klappt wie es soll (hatte da natürlich den vergleich herausgenommen)