[KiPiK]

Вот код

Код:

for i:=0 to ListBox1.Items.Count-1 do
  for k:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Items[i]=ListBox1.Items[k] then
      ListBox1.Items.Delete(k);

при выполнении выдаёт ошибку : project raised exception class EStringListError with message 'list index out of bounds (255)'
на строчке if ListBox1.Items[i]=ListBox1.Items[k] then
Я не могу разобраться почему