Как узнать индексы выделенных итемов в ListView при OwnerData?

[3D Hunter]

Добрый день.
Как при включенном режиме виртуализации в ListView при выделении итемов АВТОМАТОМ получать их индексы, например, в динамический массив, а при снятии выделения освобождать его? Свойство OnSelectItem работает некорректно (т.е. вообще не работает ) при OwnerData:=True.
Зачем это? Дело в том, что в листвиеве может быть несколько сот тысяч итемов, а выделенные нужно удалить. Вот только перебирать каждый итем в цикле на проверку выделенности и последующего удаления по крайней мере тупо. Думаю, это должно быть приблизительно так:
1. при выделении итемов автоматом формируется дин. массив индексов выделенных итемов.
2. при удалении выделенных итемов прогоняется цикл от конца в начало по созданному дин. массиву, удаляя ТОЛЬКО ВЫДЕЛЕННЫЕ ЭЛЕМЕНТЫ.

Догадываюсь, что решение - перехват событий выделения. Собственно, как это сделать?

[Stilet]

Предлагаю такой хитрый способ:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls,Contnrs, StdCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var      lv:TObjectList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if lv.IndexOf(Item)=-1 then
   lv.Add(Item);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 lv:=TObjectList.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 lv.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 lv.Clear; //Удаляем выделенные
end;

end.

[3D Hunter]

Stilet, спасибо, попробую

[3D Hunter]

Ваш код НЕ РАБОТАЕТ!
Добавляет при выделении только максимум 2 итема + при выходе из проги пишет AccessViolation. Вопрос остается открытым.
Тут подтвердилось мое подозрение насчет некорректной работы OnSelectItem при OwnerData в True.