unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    ボタン_1: TButton;
    procedure ボタン_1_クリック(送り主: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
    function 足し算の関数(元の値: Integer; 足す値: Integer): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  整数型 = type Integer;
  文字列型 = type string;

//=============================================================================
//  整数の加算用関数のテスト
//=============================================================================
procedure TForm1.ボタン_1_クリック(送り主: TObject);
var
  最初の値 : 整数型;
  次の値   : 整数型;
  結果の値 : 整数型;
  私の名前 : 文字列型;
  文字列   : 文字列型;
begin
  最初の値 := 100;
  次の値   := 230;

  結果の値 := 足し算の関数(最初の値, 次の値);
  私の名前 := TButton(送り主).Name;

  文字列 := IntToStr(結果の値) + sLineBreak + 私の名前;

  MessageBox(Handle, PChar(文字列), '計算結果', MB_ICONINFORMATION);
end;

//-----------------------------------------------------------------------------
//  整数の加算用関数
//-----------------------------------------------------------------------------
function TForm1.足し算の関数(元の値: Integer; 足す値: Integer): Integer;
begin
  Result := 元の値 + 足す値;
end;

end.