delphi – 未破坏未使用的接口引用

ITest = interface
    procedure Test;
end;

Tester = class(TInterfacedObject,ITest)
public
    procedure Test;
end;

Base = class
public
    procedure UseTestOrNot(test : ITest); virtual; abstract;
end;

A = class(Base)
public
    procedure UseTestOrNot(test : ITest); override;
end;

B = class(Base)
public
    procedure UseTestOrNot(test : ITest); override;
end;

{ A }

procedure A.UseTestOrNot(test: ITest);
begin
    test.Test();
end;

{ B }

procedure B.UseTestOrNot(test: ITest);
begin
    WriteLn('No test here');
end;

// -------- Test ---------------------------------------
var
    list : TObjectList<Base>;
    x : Base;
    t : ITest;
begin
    ReportMemoryLeaksOnShutdown := true;

    list := TObjectList<Base>.Create;
    list.Add(A.Create);
    list.Add(B.Create);

    // 1 x Tester leak for each B in list:
    for x in list do
        x.UseTestOrNot(Tester.Create);

    // this is ok
    for x in list do
    begin
        t := Tester.Create;
        x.UseTestOrNot(t);
    end;

    list.Free;
end.

你能解释一下参考柜台出了什么问题吗？
你能给出任何最佳实践/指南(比如“永远不要在函数调用中创建一个接口实例[如果你不知道里面发生了什么]”).

我能想到的最好的解决方案是在类Base中编写一个模板方法,用于保存传递的测试实例并调用抽象的DoUseTestOrNot方法.

编辑
Delphi 2010