Как создать копию(клон) объекта ?

[Maxim.K.]

Добрый день. Вопрос не простой по делфи.

Заранее(до запуска) не известен тип класса(знаем только родителя). А в режиме RunTime выясняется тип класса(у объекта) и нужно создать копию объекта.
Вот начало кода, помогите дописать ...

type
   tMyObject = class(TObject)
   end;

var 
  l_Src: tMyObject; 
  l_Dst: TObject;   

begin
   l_Src := tMyObject.Create;
   l_Dst := MakeClone(l_Src);  //  должна вернуть новый объект tMyObject
end;

function MakeClone(aSrc: TObject): TObject;
begin
   // плиз, помогите дописать этот метод
   Result := (здесь д.б. реальный тип объекта aSrc).Create;
end;

Спасибо.

[PTyTb32]

быть может так?

type
   tMyObject = class(TObject) //объект
   end;

var 
  l_Src: array of tMyObject; //создали глобальный (или локальный) массив объектов

procedure btnAddClick(Sender:TObject); //по какому то действию (тут по нажатию кнопки)
begin
  setLength(l_Src,length(l_Src)+1); // увеличили размер массива (количество твоих объектов) на один, то есть теперь у тебя массив из n+1 элементов каждый из которых наследует все свойства и методы tMyObject 
   
end;

[3D Hunter]

type
  TMyObject = class
  end;

var
  L_Src:TMyObject;
  L_Dst:TObject;

function MakeClone(ASrc:TObject):TObject;
begin
  Result:=ASrc.ClassType.Create;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  L_Dst:=nil;
  L_Src:=TMyObject.Create;

  L_Dst:=MakeClone(L_Src);
  ShowMessage(L_Dst.ClassName);
end;