Virtual ListView problem ved SelectItem

Jeg sidder med det problem at jeg for at optimere systemet meget benytter Virtual ListViews, og det er skam helt fint, bortset fra at den nu brokker sig.

Jeg skal spore når et Item vælges, og til dette formål brugte jeg en OnDataStateChange event handler, men denne bliver åbenbart kun aktiveret når der er mere end et Item aktiveret.. Derfor besluttede jeg mig for at tage en OnSelect og afprøve den.

Det virker første gang jeg klikker på et Item (jeg sætter formens Caption til IntToStr(Item.Index)), men derefter får jeg en EAccessViolation når jeg kører det.

Er her en som ved hvad der er galt? Min OnSelect handler ser således ud:

procedure TfrmEditNewsgroups.lvNewsgroupsSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  Caption := IntToStr(Item.Index);
end;