EListError при удалении 0-ого элемента ListView

[Человек_Борща]

Доброго времени суток!
Обнаружил странный баг у себя:
В ListView добовляется 1 элемент, и одновременно он добовляется в TObjectList

и происходят удивительно странные вещи:

{
ErrWindCaptList - TListView
ErrList - TObjectList
}
var
  i: Integer;
begin
     for i := ErrWindCaptList.Items.Count - 1 downto 0 do
           if ErrWindCaptList.Items[i].Selected then
              begin
                ErrList.DeleteWindow(i);
                ErrWindCaptList.Items.Delete(i);
              end;
            ErrList.Save;
          end;
      end;

Код отмечекный синим, выпадает в EListError: Index of bounds(0) но в списке ListView и в TObjectList всего по 1 элементу, и их индексы равны 0...

property ErrWindows[Indx: integer]: TErrorWindow read GetWindow;

procedure TErrorWindowList.DeleteWindow(Indx: Integer);
begin
  ErrWindows[indx].Free;
  Delete(Indx);
end;

function TErrorWindowList.GetWindow(Indx: integer): TErrorWindow;
begin
  try
    Result := (Items[Indx] as TErrorWindow);
  except
    on E: Exception do
      AddMessageEventToLOG('TErrorWindowList.GetWindow[' + IntTOStr(Indx) + '] E class: ' + E.ClassName + ' E text: ' + E.Message);
  end;
end;

[ReportCube]

У Вас один объект в двух списках: так определитесь - где вы его уничтожаете как объект? И что будет, если в одном его уничтожили, а затем попытаетесь сделать тоже самое во втором списке?

[Человек_Борща]

Нет, TListView - визуальное отображение обьектов, которые в TObjectList. Списки не связаны. Единственное, что является "мостиком" между списками, это индекс элемента.

Вариант, что обьект в ObjectList не создан, тоже исключён.
т.к. обьект создаётся и добовляется в ObjectList первым, и только потом он добовляется в ListView.

Ошибка происходит, именно, при удалении обькта из ListView.

Стоп..

Непонимаю..
Почему в коде:

procedure TErrorWindowList.DeleteWindow(Indx: Integer);
begin
  ErrWindows[indx].Free;
  Delete(Indx);
end;

Delete(Indx); выпадает в Access Violation ?
После Free Ссылка на обьект вроде не обнуляется сама, или обнуляется?



[ОБНОВЛЕНО]
Ошибку нашёл, проблема была в TobjectList.

freeing an object when its index is reassigned; when it is removed from the list with the Delete, Remove, or Clear method; or when the TObjectList instance is itself destroyed.

Я сам вызвал FREE, а затем его пытается вызвать список.