[hesperusvz]

Доброе время суток, подскажите что я делаю не так пытаюсь удалить строку в ListView по нажатию в нём кнопки выдает ошибку

Код:

procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
  var
v:integer;
begin

v:= ListView2.ItemIndex ;
 ListView2.Items.Delete( v );
 exit;
ShowMessage('Нажатие по элементу');

end;

Админ: Пользуемся тегами при оформлении кода!

Да он ещё обращяется на onClik хотя я его об этом не просил

Код:

procedure TfrmMain.ListView2Click(Sender: TObject);
begin
ShowMessage('Нажатие по элементу');
end;