you should say, what do you try to do
I need to learn Englsh..
So, this problem isn't really big probem,
because my code works, but I don't like the code, because seems to me slightly overcomplicated (because I can't use inheritance), so I try other way to implement things.
I wrote it in the first message what I try to do. But again, other words:
I have two component:
T_A = class(TListBox)
T_B = class(TComponent)
T_B must TComponent, because I don't want to see the Listbox.
T_A must inherited from ListBox, because this is a ListBox, with advanced functions.
The ideal solution:
T_A = class(T_B) because then
I can use inheritance. But, see above, T_B must TComponent.