[[Lepe]]

Que yo sepa no se puede, tienes que cambiar los nombres:

Código Delphi [-]

TCompareProc = function (....):TipoSalida;
TCompareMethod = function (....):TipoSalida of Object;

// Y ahora haces un Overload del método que lo use:

Tmio = Class(tobject)

public 
  procedure Compara(Funcion :TcompareProc);overload;
  procedure Compara(Funcion :TcompareMethod);overload;
end;

Aunque la implementación del método "Compara" es la misma, tienes que duplicarla.

Saludos