Как добавить в TObjectList объект произвольного типа

[kartalex]

Здравствуйте, уважаемые коллеги!
Возник один вопрос, пожалуйста помогите найти на него ответ.

предположим есть созданные мною классы

type TParentClass: class(TObject)
 constructor Create(x,y: integer); override;
 ......
end;

type TChildClass1: class(TParentClass)
....
end;

type TChildClass2: class(TParentClass)
....
end;

есть список объектов, в котором я планирую сохранять объекты любого из этих трех классов по желанию пользователя.

List: TObjectList;

и есть переменная

VarObject: TParentClass;

если бы я хотел добавить в список List объект определенного класса, то я бы написал так -

List.Add(TParentClass.Create(x,y));
//или
List.Add(TChildClass1.Create(x,y));
//или
List.Add(TChildClass1.Create(x,y));

но я хочу добавлять объекты именно того класса, который содержится в VarObject, а VarObject в ходе меняет свой класс.

Иными словами, как упростить сей код:

if VarObject.ClassName='TParentClass' then
   List.Add(TParentClass.Create(x,y)); 
if VarObject.ClassName='TChildClass1' then
   List.Add(TChildClass1.Create(x,y)); 
if VarObject.ClassName='TChildClass2' then
   List.Add(TChildClass2.Create(x,y));

в программе будут использовано несколько десятков клаасов и их потомков, поэтому городить целую гору if..then - не годится

хотелось бы что-то вида

List.Add(какая-то функция(VarObject).Create(x,y));

[Stilet]

Ниче не понял...
А почему нельзя добавлять List.Add(VarObject);?

[maxionans]

Как вариант:

List.Add( TParentClass(VarObject.ClassType.NewInstance).Create( x, y ) );

[kartalex]

Огромное спасибо! Именно это - то что доктор прописал!