delphi – 如何将任意类型的方法传递给过程并识别它？

我现在支持以下类型;

TAgThreadMethod1 = procedure of object;
TAgThreadMethod2 = procedure;
TAgThreadMethod3 = procedure(const AThread: TAgThread) of object;

而构造函数是这样的：

constructor Create(const AOnRun: TAgThreadMethod1); overload; virtual;
constructor Create(const AOnRun: TAgThreadMethod2); overload; virtual;
constructor Create(const AOnRun: TAgThreadMethod3); overload; virtual;

作为参考,我不希望用户能够在构造之后的某个时间更改worker方法.因此,如果存在可以在单个构造函数中执行此类操作的解决方案,也欢迎;

constructor Create
            (const AOnRun: [Some type which can hold arbitrary method types]);
begin

  // code to identify the method contained in AOnRun.
  // if supported,assign it the correct handler.

end;