如何从Delphi中的函数返回一个对象而不会导致访问冲突？

type
  TMyObject = class(TInterfacedObject)
  private
    FValue: Integer;
  public
    constructor Create(AValue: Integer);
    property Value: Integer read FValue;
  end;

constructor TMyObject.Create(AValue: Integer);
begin
  inherited Create;
  FValue := AValue;
end;

function GetMyObject: TMyObject;
begin
  Result := TMyObject.Create(42);
end;

var
  MyObject: TMyObject;
begin
  MyObject := GetMyObject;
  try
    // 使用MyObject
    ShowMessage(IntToStr(MyObject.Value));
  finally
    MyObject.Free;
  end;
end.