Delphi 10 Программа с использованием перегруженных методов и параметров

unit os3lab;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm5 = class(TForm)
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function CalcVolume(const Rx: Real = 10; const Hx: Real = 15): Real; overload; //Для конуса
    function CalcVolume(const Sx: Real = 5; const Hx: Real = 10; const Some: String = ''): Real; overload; //Для пирамиды
    { Public declarations }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
 
{ TForm4 }
 
function TForm5.CalcVolume(const Rx, Hx: Real): Real;
begin
  //Для конуса.
  Result:=0;
  //Считаем объем...
end;
 
function TForm5.CalcVolume(const Sx, Hx: Real; const Some: String): Real;
begin
  //Для пирамиды.
  Result:=0;
  //Считаем объем...
end;
 
procedure TForm5.Button1Click(Sender: TObject);
var
  AConusVolume: Real;
  APyramidVolume: Real;
begin
  //Передаем параметры для расчета конуса:
  AConusVolume:=CalcVolume(10); //И Высота у нас по умолчанию.
  APyramidVolume:=CalcVolume(5, 5, 'Test'); //А тут параметры заданы.
end;
end.

[dcc32 Error] os3lab.pas(53): E2251 Ambiguous overloaded call to 'CalcVolume'
  os3lab.pas(18): Related method: function TForm5.CalcVolume(const Real; const Real): Real;
  os3lab.pas(19): Related method: function TForm5.CalcVolume(const Real; const Real; const string): Real;
[dcc32 Fatal Error] Project3.dpr(5): F2063 Could not compile used unit 'os3lab.pas'
Failed
Elapsed time: 00:00:02.3

    function CalcVolume(const Rx: Real = 10; const Hx: Real = 15): Real; overload; //Для конуса
    function CalcVolume(const Sx: Real; const Hx: Real; const Some: String): Real; overload; //Для пирамиды

    function CalcVolume(const Rx: Real; const Hx: Real): Real; overload; //Для конуса
    function CalcVolume(const Sx: Real; const Hx: Real; const Some: String): Real; overload; //Для пирамиды

    function CalcConeVolume(const Rx: Real = 10; const Hx: Real = 15): Real; //Для конуса
    function CalcPyramidVolume(const Sx: Real = 5; const Hx: Real = 10; const Some: String = ''): Real; //Для пирамиды