[TotKtoNado]

как удалить индекс массива так чтоб стало на 1 индекс меньше а номера индексов были по порядку?

Код:

  i:=ListViewRashod.itemindex;
  ListViewRashod.Items.Delete(i);
  ItemList[i].AllDateArray:=0;
  ItemList[i].Statya:='';
  ItemList[i].Summa:=0;
  ItemList[i].skidka:=0;
  ItemList[i].schet:='';
  ItemList[i].val:='';
  ItemList[i].com:='';
  setLength(ItemList,i-1);

ругаеться
---------------------------
Financialadvisor
---------------------------
Range check error.
---------------------------
ОК
---------------------------