Как заставить принять Parent?

[ZuBy]

Привет всем!

Написал уже много компонентов и ни раз не встречался с такой ошибкой.
Как мне известно Parent присваивается автоматически (если использовать режим дизайна), но мой компонент отказывается это делать.

Пробовал насильно его заставить вот так:

Parent := TWinControl(AOwner);

или

Parent := TForm(Aowner);

но это не помогло.

Кто нить с таким сталкивался?

P.S. Что бы нарваться на ошибку создайте проект, поместите компонент, запустите и закройте прогу.

[alexBlack]

Уберите из деструктора вызов Clear.
Посмотрите, что происходит:
Clear -> TListBoxStrings.Clear -> ListBox.ResetContent -> SendMessage компоненту

Как это связано с Parent, непонятно (или трудно отследить).

[ZuBy]

alexBlack огромное спасибо!