MDIForm访问子窗体出错，请教~

Question

MDIForm访问一类TguMDIChild的成员变量uses MyGrapic ...type
  TguMDIChild = class(TForm)
    Button1: TButton;
    
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    mGrapic:TMyGrapic;  //自定义的类    { Public declarations }
    end;
===============================
父窗体
showmessage(TguMDIChild(ActiveMDIChild).mGrapic.ClassName);出错，想了半天脑袋死机了

Answer 1

mGrapic := TMyGrapic.Create; 
创建一个实体,访问一个公用的成员吧,不要访问ClassName;//
class function TObject.ClassName: ShortString;
{$IFDEF PUREPASCAL}
begin
  Result := PShortString(PPointer(Integer(Self) + vmtClassName)^)^;
end;