delphi как переназначить название процедуры интерфейса в объекте если она overload

как переназначить название процедуры интерфейса в объекте если она overload

  IIntr = interface
   procedure Other;
   procedure Same(); overload;
   procedure Same(i:integer); overload;
  end;
  TIntr  =  class (TInterfacedObject,IIntr)

      procedure IIntr.Other = myOther;
      procedure IIntr.Same = mySame1;
      procedure IIntr.Same = mySame2; << [dcc32 Error]  E2004 Identifier redeclared: 'Same'
      procedure myOther;
      procedure mySame1;
      procedure mySame2(i:integer);
  end;

implementation

{ TIntr }

procedure TIntr.myOther;
begin

end;

procedure TIntr.mySame1;
begin

end;

procedure TIntr.mySame2(i:integer);
begin

end;