Fórum Erro com uso de overload #294201

Colegas

Tenho o seguinte programa
...
...

type
TForm1 = class(TForm)

Function MensConfirmacao(Titulo, MensID: String; Tipo: Integer): Integer; overload;
Function MensConfirmacao(Titulo, MensID, Complemento: String): Integer; overload;

private
...
...
...

implementation

{$R *.dfm}


function TForm1.MensConfirmacao(Titulo, MensID: String; Tipo: Integer;
Alerta: TTipoAlerta; Botao: TBotaoDefault): Integer; overload;
begin
...
...
...
end;

function TForm1.MensConfirmacao(Titulo, MensID String; Valor: Double;
Tipo: Integer; Alerta: TTipoAlerta; Botao: TBotaoDefault): Integer; overload;
begin
...
...
...
end;


Quando vou compilar aparece o erro:
[Error] Unit1.pas(14): Only one of a set of overloaded methods can be published

Já procurei no fórum, no help, não consegui ver o motivo do erro.
Alguém poderia me ajudar.
Obrigado.