Contagem de referência para objetos

No meu código, uso uma pequena classe de armazenamento de dados, criada em locais diferentes. Para evitar vazamentos de memória e simplificar as coisas, quero usar a contagem de referências, então fiz type TFileInfo = class (TInterfacedObject, ...