Didn’t you say:
FHook := THook.Create;
so you need a FHook.Free call? The class is THook = class(TInterfacedObject,
IHook) right?
> On Sep 6, 2017, at 4:24 PM, Graeme Geldenhuys <mailingli...@geldenhuys.co.uk>
> wrote:
>
> I changed the destructor to the code shown below. Just so you know, I tried
> this before I posted the message, and it didn't make any difference. FHook is
> a IHook interface reference, not a object reference. I can't change it
> either, otherwise FPC gives me a compiler error on the property ...
> implements...; line.
Regards,
Ryan Joseph
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
