如果记录中只有一个对象引用，那么编译器就不能帮你了。你要全权负责这个对象的生存期。你不能重载赋值操作符，也不会得到任何作用域结束的通知。
不过，您可以添加一个guard接口来管理对象的生存期。

TMyRecord = record
  obj: TMyObject;
  guard: IInterface;
end;

您需要确保TMyObject通过引用计数来管理其生存期。例如，通过从TInterfacedObject派生。
初始化记录时，请执行以下操作：

rec.obj := TMyObject.Create;
rec.guard := rec.obj;

此时，记录的guard字段将管理对象的生存期。
事实上，如果你想进一步推广这个想法，你可以构建一个专用的类来保护对象的生存期。这样你就不再需要在类上实现IInterface了。网上有很多例子来说明这个技术。例如，我提供了Jarrod Hollingworth的文章，标题为Smart Pointers。巴里Kelly的标题是Reference-counted pointers, revisited。还有很多。这是一个老把戏！
但是请注意，这里的记录是值类型和引用类型的奇怪混合。从表面上看，记录是值类型。但是，这个记录的行为类似于引用类型。如果记录中的其他字段是值类型，那么这将更加令人困惑。在处理这样的记录时，您需要非常注意这个问题。
从表面上看，在不了解你的设计的情况下，我倾向于建议你不要把对象引用放在记录中，它们更适合放在引用类型中，也就是类中。

我记得有人创建了一个名为TLifetimeWatcher的类。基本上，它看起来像：

TLifetimeWatcher = class(TInterfacedObject)
private
  fInstance: TObject;
  fProc: TProc; 
public
  constructor Create(instance: TObject); overload;
  constructor Create(instance: TObject; proc: TProc); overload;
  destructor Destroy; override;
end;

//（cleanup）proc将在解构函式中执行（如果已指派），否则会叫用Free方法来释放执行严修。

https://docwiki.embarcadero.com/RADStudio/Sydney/en/Custom_Managed_Records

THeaderStruct = record
  private

  public
    class operator Initialize (out Header: THeaderStruct);
    class operator Finalize (var Header: THeaderStruct);
end;