为什么创建后属性值不保留在对象中？

我写了这个简单的课：

unit Test;

interface

uses
  SysUtils;

type
  TGram = class
  private
    instanceCreated: boolean;
    constructor Create;
  public
    procedure test;
  end;

implementation

constructor TGram.Create;
begin
  instanceCreated := true;
end;

procedure TGram.test;
begin
  if not instanceCreated
    then raise Exception.Create('The object has not been created.');
end;

end.

当我调用方法测试时，我得到一个例外，那就是它没有被创建。

var test: TGram;
begin
    test := TGram.create;
    test.test;
end

在构造函数中，instanceCreated设置为true（我相信是这样），但是当我稍后尝试访问它时，它不存在。为什么？如何纠正呢？