pascal类使用上的SIGSEV错误

在Lazarus中使用以下类代码时，我在writeln（woman.name，'has born'）上得到以下错误；行：“项目我的应用程序引发了异常类‘External SIGSEV’。其他pascal代码似乎工作正常

program project1;
uses wincrt;

type human = class
   private
      health : integer;
   public
      name : string;
      constructor born(n: string);
end;

constructor human.born(n: string);
begin
  name := n;
  health := 100;
end;

var
  woman : human;

begin
  woman.born('Tracy');
  writeln(woman.name, 'has been born');
end.

---

您需要以这种方式实例化对象：

woman := human.born('Tracy');