[BCB->Delphi]自定义类为何会在关闭程序时出错解决方法

[BCB->Delphi]自定义类为何会在关闭程序时出错
由于最近这段日子感到bcb越来越困难，所以打算转型成delphi，正在学习OP语法
下面这段代码编译正常通过，但是会出错，望前辈指点

implementation

{$R   *.dfm}
    Type
        THuman   =   class           {没有指定父类应该是从TObject派生吧}
        public
        Sex   :   Boolean;
        Age:Integer;
        Function   Retire(IntAge:Integer):Boolean;
      End;

Function   THuman.Retire(IntAge:Integer):Boolean;
    Begin

          if   IntAge   > =   60   then
              Result   :=   true
          else
              Result   :=   false;

    End;

procedure   TForm1.Button1Click(Sender:   TObject);

    Var
    CurHuman1:THuman;
begin
      CurHuman1.Create(   );{关键位置,如果我不在这里使用Create程序编译完执行下一句的时候会出错，意思可能是没有初始化}
      CurHuman1.Age   :=   StrToInt(Edit1.Text);

      if   CurHuman1.Retire(CurHuman1.Age)   then
            Label2.Caption:= '已经退休 '
            else
            Label2.Caption:= '正在工作 ';


    CurHuman1.Free();{关键位置,这句我无论是注释掉还是让其运行，程序最后都会抛开异常，   windows显示程序异常关闭}


end;

------解决方案--------------------
CurHuman1.Create( ); 换成CurHuman1 := THuman.Create; 试试