delphi – 如何同时创建两个类的实例？

var c1:TClass1;
c2:TClass2;
begin
  c1 := c1.Create;
  c2 := c2.Create; //<<Exception;
end;

这两个类都继承自TObject.如果它们不继承,那么我不能在类中使用调试器,所以我必须使用TObject.

我真正的问题是我必须在第一个类的实例中的函数内创建第二个类的实例.当我在其中时,我无法找到释放第一个类的实例的方法.

看来我不能有多个继承自TObject的类,那是问题吗？

如何修复我的代码,任何建议？

提前致谢！

C1 := TClass1.Create;
C2 := TClass2.Create;