Ошибка list index out of bounds(-1)

[Devvver]

procedure TForm1.sButton11Click(Sender: TObject);
var
u9:integer;
begin
refreshF:=false;
for u9:= sortedkeys.Count-1   downto 0 do
sListView1.Items.BeginUpdate ;
begin
 IF pos(sEdit1.Text, sortedkeys[u9])<>0   then begin
  sortedkeys.Delete(u9);
  sortedZastota.Delete(u9);
 end;
end;

sListView1.Items.Clear;
 sListView1.Items.Count := sortedkeys.Count;
 sListView1.Items.EndUpdate ;
 refreshF:=true;
 sListView1.Invalidate;
end;

Получаю всегда Ошибка list index out of bounds(XX) Понимаю, что ошибка связана с выходом за размеры массива, но в упор не вижу ошибку.

[Аватар]

Что за цикл, в котором только sListView1.Items.BeginUpdate? Операторные скобки хаотичны )

[Devvver]

sortedkeys - Stringlist
sortedZastota - Stringlist

В цикле идет проверка на вхождение слова - если оно есть нужно удалить элемент.
После выноса sListView1.Items.BeginUpdate ; за предел цикла ошибка перестала возникать в цикле, а появляется при попытке закрыть программу (та же)

[Аватар]

sListView1.Items.Clear; //допустим почистил
sListView1.Items.Count := sortedkeys.Count; //что это по твоему делает?
или листвью у тебя виртуальный?

[Devvver]

Сообщение от Аватар

sListView1.Items.Clear; //допустим почистил
sListView1.Items.Count := sortedkeys.Count; //что это по твоему делает?

Создаю XXX элементов Item
Это нужно OnData у sListView

procedure TForm1.sListView1Data(Sender: TObject; Item: TListItem);
var
kk:integer;
begin
  if refreshF=true then
begin


IF   inhg=0   then  begin
kk:=sortedlist.Count ;
inhg:=inhg+1;
end else
kk:= sortedkeys.Count;


//sortedlist.Count:=sortedkeys.Count;
  if Assigned(sortedlist) and (Item.Index <= kk) then
  begin
  item.Caption:= sortedkeys[Item.Index] ;
  item.SubItems.Add(sortedZastota[Item.Index]);

  end;
end;

end;

Я не гружу все данные в ListView он виртуальный с подгрузкой данных, так как записей очень много (100К-300К в среднем)

Для лучшего понимания







Обновление- нашел ошибку и исправил, Аватар спасибо!