Que yo sepa no se puede, tienes que cambiar los nombres:
Código Delphi
[-]
TCompareProc = function (....):TipoSalida;
TCompareMethod = function (....):TipoSalida of Object;
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