Leaderboard

Seems that LOCAL_NOUSEROVERRIDE is your friend here.

Instead of IMethod I would suggest a new directive interfaced, optional with an alternative name used with InterfaceOf (similar to a method resolution clause). type TProcessor = class public constructor Create; procedure ProcessData(var Data); interfaced; procedure CleanUp; interfaced(Clear); // InterfaceOf will publish this method as Clear procedure Clear; // used inside TProcessor property Value: Integer read GetValue; interfaced; // should work for properties, too end;

Little bit offtopic, but from my experience 90% of performance issues in Delphi came from implicit try except blocks. When procedure contains local variable of managed type, or implicit variable (f.e. string1+string2, copy(), etc) try except block with finalization calls is added to whole procedure even if variable is used only in small block. Moving this block (in case it is rarely executed) to subprocedure helps a lot.