c++ - Firemonkey TListView でアイテムを削除すると範囲外の例外が発生する

Question

TListView各アイテムに対応する「削除」ボタンがあるいくつかのアイテムがあります。にTListViewは、次のオン ボタン クリック イベント ハンドラがあります。

void __fastcall TSettingsCopyWizard_Fac::CopyToListViewButtonClick(TObject * const Sender,
      TListViewItem * const AItem, TListItemSimpleControl * const AObject)

{
    CopyToListView->BeginUpdate();
    CopyToListView->Items->Delete(AItem->Index);
    CopyToListView->EndUpdate();
}

項目を削除しようとすると、「引数が範囲外です」という例外がスローされます。ただし、Delete通話中ではなく、System.Generics.Collectionsここにあります。

procedure TListHelper.CheckItemRange(AIndex: Integer);
begin
  CheckItemRangeInline(AIndex); //this is the line that throws the exception
end;

リスト ビューからアイテムを不適切に削除していませんか? または、この問題を引き起こしている他の何かがありますか?