可以修改如下：

或者如下：

 

代码如下：

unit Unit1;interfaceuses  Winapi.Windows,  Winapi.Messages,  System.SysUtils,  System.Variants,  System.Classes,  Vcl.Graphics,  Vcl.Controls,  Vcl.Forms,  Vcl.Dialogs,  Vcl.StdCtrls;type  TForm1 = class(TForm)    Memo1: TMemo;    Button1: TButton;    Button2: TButton;    procedure Button2Click(Sender: TObject);  private    {
     Private declarations }  public    {
     Public declarations }  end;var  Form1: TForm1;implementation{
    $R *.dfm}function Add(N: Integer; S: Single): Single; overload;begin  Form1.Memo1.Lines.Add('重载方法一');  Result := N + S;end;function Add(S: Single; N: Integer): Single; overload;begin  Form1.Memo1.Lines.Add('重载方法二');  Result := N + S;end;procedure TForm1.Button2Click(Sender: TObject);begin  Add(10, 10.ToSingle);end;end.