Автор: Pat Ritchey
Мне необходимо получить ссылку на класс из объекта...
TObject.ClassType var ClassRef : TComponentClass; NewComp:TComponent; begin TClass(ClassRef) := Sender.ClassType; NewComp := ClassRef.Create(Self); ...