类操作

  {对象的 ClassType 方法返回对象的 TClass}
  ShowMessage(Self.ClassType.ClassName); {TForm1 - Form1 的类名}

  MyClass := Self.ClassType;
  ShowMessage(MyClass.ClassName);