delphi – 防止破坏接口传递的对象

例：

IListModel = interface
    function At(row,col : Integer) : String;
end;

MyModel = class(TInterfacedObject,IListModel)
public
    function At(row,col : Integer) : String;
    procedure ManipulateA;
    procedure ManipulateBogus;
end;

有一个视图可以显示实现IListModel接口的对象.

View = class(TForm)
public
    constructor Create(model : IListModel); reintroduce;
end;

我的应用程序拥有MyModel实例

MyApp = class({...})
strict private
    model : MyModel;
public
 // ...
end;

在应用程序中,我创建模型并使用它.

procedure MyApp.LoadModel;
procedure MyApp.OnFoo;
begin
    model.ManipulateBogus;
end;

现在,我想显示数据

procedure MyApp.ShowModel;
var
    v : View;
begin
    v := View.Create(model); // implicit to IListView > refCount=1
    v.ShowModal;
    FreeAndNil(v);
    // refCount = 0
    // oops,my model is dead now
end;

我想知道什么是解决这个问题的最佳方法.
在MyApp中我可以同时拥有两个实例模型：MyModel AND通过IListModel接口.
或者我可以引入一个新的接口IMyModel并通过MyApp类中的此接口保存模型.我必须使用ShowModel方法中的Supports(…)来获取IListModel接口.
或者我从另一个非引用基类(TInterfacedPersistent或自写类)派生MyModel类.还有其他想法吗？

在这种情况下使用接口的最佳方法是什么？

编辑：
非引用计数基类：

function NonRefCountingObject.QueryInterface(const IID: TGUID;
                                             out Obj): HResult;
begin
  if GetInterface(IID,Obj) then
    Result := S_OK
  else
    Result := E_NOINTERFACE;
end;

function NonRefCountingObject._AddRef: Integer;
begin
    Result := -1;  // no reference counting
end;

function NonRefCountingObject._Release: Integer;
begin
    Result := -1;  // no reference counting
end;

这个实现好吗？