> On Sep 6, 2017, at 8:03 PM, Graeme Geldenhuys <mailingli...@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 _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal