[fpc-pascal] Where and Why is there a memory leak?

[Ryan Joseph]

> On Sep 6, 2017, at 8:03 PM, Graeme Geldenhuys <mailinglists at geldenhuys.co.uk> wrote:
> 
> I couldn't call .Free because FHook was a interface reference type of type IHook, not THook.

But TInterfacedObject is a class isn’t it? Then you call FHook := THook.Create; so a I’d expect a Free(). What am I missing?

type
 THook = class(TInterfacedObject, IHook)
 private
   procedure DoIt;
 end;

Regards,
	Ryan Joseph