Как прикрепить к ListView (к конкретному Item'у или SubItem'у) визуальный компонент. Через TPersisten.Parent = ListView1.Items[0].Data прикрепляется в легкую, но если сдвинут немного форму, то всё.

Как по-нормальному сделать?
ЗЫ: нужно для того, чтобы при нажатии на определённый SubItem выполнялась процедура. Мне из решений видится только приаттачивание кнопки или остлеживание соответствия "координаты мышки" - "subitem на этих координатах". Насчёт последнего: что-то подобное было в StringGrid (узнавание ячейки по координатам мыши), здесь есть?
Добавлено через 5 минут
Нашёл способ определить item под курсором. (Функция [DELPHI]GetItemAt(X, Y: integer)[/DELPHI]). Вопрос насчёт SubItem'а остаётся открытым.